home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / xymtex / chemstr.sty < prev    next >
Text File  |  1994-07-10  |  104KB  |  2,611 lines
  1. % chemstr.sty
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
  4. \typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
  5. \typeout{}
  6. \typeout{}
  7. % Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
  8. %
  9. % This file is a part of the macro package ``XyMTeX'' which has been 
  10. % designed for typesetting chemical structural formulas.
  11. %
  12. % This file is to be contained in the ``xymtex'' directory which is 
  13. % an input directory for TeX. It is a LaTeX optional style file and 
  14. % should be used only within LaTeX, because several macros of the file 
  15. % are based on LaTeX commands. 
  16. %
  17. % For the review of XyMTeX, see
  18. %  (1)  Shinsaku Fujita, ``Typesetting structural formulas with the text
  19. %    formatter TeX/LaTeX'', Computers and Chemistry, in press.    
  20. % The following book deals with an application of TeX/LaTeX to 
  21. % preparation of manuscripts of chemical fields:
  22. %  (2)  Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' 
  23. %    Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].  
  24. %
  25. % Copying of this file is authorized only if either
  26. %  (1) you make absolutely no changes to your copy, including name and 
  27. %     directory name; or
  28. %  (2) if you do make changes, 
  29. %     (a) you name it something other than the names included in the 
  30. %         ``xymtex'' directory and 
  31. %     (b) you are requested to leave this notice intact.
  32. % This restriction ensures that all standard styles are identical.
  33. %
  34. % Please report any bugs, comments, suggestions, etc. to:
  35. %   Shinsaku Fujita, 
  36. %   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
  37. %   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
  38. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  39. %
  40. % Bug Fix:
  41. %   1993/11/14 S. Fujita 
  42. %     A and B are interchanged.
  43. %     a and b are interchanged.
  44. %
  45. \def\j@urnalname{chemstr}
  46. \def\versi@ndate{December 01, 1993}
  47. \def\versi@nno{ver1.00}
  48. \def\copyrighth@lder{SF}% % Shinsaku Fujita
  49. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  50. %\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>\space%
  51. % [\copyrighth@lder]}
  52. %
  53. % *********************************
  54. % * chemstr.sty: list of commands *
  55. % *********************************
  56. %
  57. %  <For separating an augument list to each argument>
  58. %
  59. %     \@forsemicol
  60. %     \@forl@@p
  61. %     \@iforl@@p
  62. %     \@m@mb@r
  63. %     \twoch@r
  64. %     \twoch@@r
  65. %     \threech@r
  66. %
  67. %  <Convention>
  68. %
  69. %     \rmoiety
  70. %     \lmoiety
  71. %     \putlatom
  72. %     \putratom
  73. %     \putlratom
  74. %     \Putlratom
  75. %  
  76. %  <Treatment of substitution positions>
  77. %
  78. %     \if@clip  \@clipfalse  \@cliptrue
  79. %     \if@aclip \@aclipfalse \@acliptrue
  80. %     \if@bclip \@bclipfalse \@bcliptrue
  81. %     \if@cclip \@cclipfalse \@ccliptrue
  82. %     \if@eclip \@eclipfalse \@ecliptrue
  83. %     \if@fclip \@fclipfalse \@fcliptrue
  84. %     \iforigpt \origptfalse \origpttrue
  85. %     \@tmpaa (counter)
  86. %
  87. %  <VERTICAL SETTING>
  88. %   Substitution 
  89. %
  90. %     \@substa
  91. %     \@substb
  92. %     \@substc
  93. %     \@substd
  94. %     \@subste
  95. %     \@substf
  96. %
  97. %   Setting of atoms and bonds 
  98. %
  99. %     \setsixringv      (on a vertical six-membered ring)
  100. %     \setdecaringv     (on a decaline (six-six) ring)
  101. %     \setfusedbond     (at fused bond positions)
  102. %     \if@clipfuse \@clipfusefalse \@clipfusetrue
  103. %     \setatombond      (at an appropiate position)
  104. %
  105. %  <HORIZONTAL SETTING>
  106. %   Substitution
  107. %
  108. %     \@hsubsta
  109. %     \@hsubstb
  110. %     \@hsubstc
  111. %     \@hsubstd
  112. %     \@hsubste
  113. %     \@hsubstf
  114. %
  115. %   Setting of atoms and bonds 
  116. %
  117. %     \setsixringh       (on a horizontal six-membered ring)
  118. %
  119. % ***************
  120. % * XyMTeX Logo *
  121. % ***************
  122. %%%XyMTeX Logo: Definition 1%%%
  123. %\newcount\TestCount
  124. %\def\XyM{\ifnum\fam=-1\relax\fam=0\relax\fi\TestCount=\fam%
  125. %X\kern-.30em\smash{\raise.50ex\hbox{$\fam\TestCount\Upsilon$}}%
  126. %\kern-.30em{M}}
  127. %\def\XyMTeX{\XyM\kern-.1em\TeX}
  128. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  129. %%%XyMTeX Logo: Definition 2%%%
  130. \def\UPSILON{\char'7}
  131. \def\XyM{X\kern-.30em\smash{\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}}
  132. \def\XyMTeX{\XyM\kern-.1em\TeX}
  133. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  134. % ****************************************************
  135. % * For separating an augument list to each argument *
  136. % ****************************************************
  137. %
  138. \def\@forsemicol#1:=#2\do#3{\edef\@fortmp{#2}\ifx\@fortmp\@empty \else%
  139.     \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi}
  140. \def\@forl@@p#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
  141.        #5\def#4{#2}\ifx #4\@nnil \else#5\@iforl@@p #3\@@#4{#5}\fi\fi}
  142. \def\@iforl@@p#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
  143.        \let\@nextwhile=\@fornoop \else%
  144.       #4\relax\let\@nextwhile=\@iforl@@p\fi\@nextwhile#2\@@#3{#4}}
  145. \def\@m@mb@r#1==#2;{\gdef\@membera{#1}\gdef\@memberb{#2}}
  146. \def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}}
  147. \def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}}
  148. \def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}}
  149. %
  150. % **************
  151. % * Convention *
  152. % **************
  153. %
  154. \def\rmoiety#1{#1 \hss}
  155. \def\lmoiety#1{\hss #1}
  156. \def\putlatom#1#2#3{\put(#1,#2){\hbox to0pt{\hss #3}}}
  157. \def\putratom#1#2#3{\put(#1,#2){\hbox to0pt{#3 \hss}}}
  158. %%changed to avoid Overfull warnings 1993/11/11/S.Fujita%%%
  159. \newif\if@moiety \@moietyfalse
  160. \def\putlratom#1#2#3{%
  161. \def\lmoiety##1{\global\@moietytrue}\setbox0=\hbox{#3}%
  162. \if@moiety\def\lmoiety##1{\hss ##1}%
  163. \put(#1,#2){\hbox to.72em{#3}}\global\@moietyfalse%
  164. \else\put(#1,#2){\hbox to.6em{#3\hss}}\fi}%
  165. %\def\putlratom#1#2#3{\put(#1,#2){\hbox to.6em{#3}}}
  166. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  167. \def\Putlratom#1#2#3{\put(#1,#2){\hbox to.8em{#3}}}
  168. %
  169. % ******************************
  170. % * Parameters for Coodinates  *
  171. % ******************************
  172. \newcount\noshift \noshift=0\relax%
  173. \newcount\shifti \shifti=240\relax%
  174. \newcount\shiftii \shiftii=400\relax%
  175. \newcount\shiftiii \shiftiii=800\relax%
  176. \unitlength.1pt%
  177. %
  178. % ***************************************
  179. % * various flags (switches)            *
  180. % * treatment of substitution positions *
  181. % ***************************************
  182. %  These macros are used for clipping spaces at substitution positions.
  183. %
  184. % for carbocycles
  185. %
  186. \newif\if@clip \@clipfalse%   % switch for clipping at 4 
  187. \newif\if@aclip \@aclipfalse% % switch for clipping at 1
  188. \newif\if@bclip \@bclipfalse% % switch for clipping at 2
  189. \newif\if@cclip \@cclipfalse% % switch for clipping at 3
  190. \newif\if@eclip \@eclipfalse% % switch for clipping at 5
  191. \newif\if@fclip \@fclipfalse% % switch for clipping at 6
  192. \newif\iforigpt \origptfalse% % switch for showing the original point
  193. \newcount\@tmpaa%
  194. %
  195. % for heterocycles
  196. %
  197. \newif\if@gclip \@gclipfalse%
  198. \newif\if@hclip \@hclipfalse%
  199. \newif\if@iclip \@iclipfalse%
  200. \newif\if@jclip \@jclipfalse%
  201. \def\iniflag{%
  202. \global\@aclipfalse\global\@bclipfalse%
  203. \global\@cclipfalse\global\@clipfalse\global\@eclipfalse%
  204. \global\@fclipfalse\global\@gclipfalse\global\@hclipfalse%
  205. \global\@iclipfalse\global\@jclipfalse%
  206. \global\@clipfusefalse}%
  207. \def\iniatom{%
  208. \gdef\aaa{}\gdef\bbb{}\gdef\ccc{}\gdef\ddd{}\gdef\eee{}\gdef\fff{}%
  209. \gdef\ggg{}\gdef\hhh{}\gdef\iii{}\gdef\jjj{}%
  210. \gdef\@aaa{}\gdef\@bbb{}\gdef\@ccc{}\gdef\@ddd{}\gdef\@eee{}\gdef\@fff{}%
  211. }%
  212. \def\resetbdsw{\gdef\@aaa{a}\gdef\@bbb{b}\gdef\@ccc{c}%
  213. \gdef\@ddd{d}\gdef\@eee{e}\gdef\@fff{f}}%
  214. \iniatom%
  215. %%%%%%%%%%%%%%%
  216. % subst. on 1 %
  217. %%%%%%%%%%%%%%%
  218. \def\@substa{%
  219. \if@aclip% %clipping
  220.    \if\@tmpb S%single bond
  221.     \ifx\@tmpc\empty%
  222.            \put(0,436){\line(0,1){110}}%      % single bond at 1
  223.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  224.     \else\if\@tmpc B%(B) beta
  225.            \putlatom{-42}{563}{\@memberb}%    % left type
  226.            {%
  227.            \thicklines%
  228.            \put(-18,436){\line(-3,5){60}}%    % single bond at 1
  229.            }%
  230.     \else\if\@tmpc A%(A) alpha
  231.            \putratom{41}{563}{\@memberb}%     % right type
  232.        \@ifundefined{dottedline}{%
  233.            \put(18,436){\line(3,5){60}}%      % single bond at 1
  234.            }{{\thicklines%
  235.               \dottedline{20}(18,436)(72,526)}}%
  236.     \else\if\@tmpc b%(b) beta
  237.            \putlatom{-42}{563}{\@memberb}%    % left type
  238.            \put(-18,436){\line(-3,5){60}}%    % single bond at 1
  239.     \else\if\@tmpc a%(a) alpha
  240.            \putratom{41}{563}{\@memberb}%     % right type
  241.            \put(18,436){\line(3,5){60}}%      % single bond at 1
  242.     \fi\fi\fi\fi\fi%
  243.    \else\if\@tmpb D%double bond
  244.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  245.            \put(-12,436){\line(0,1){110}}%    % double bond at 1
  246.            \put(12,436){\line(0,1){110}}%     % double bond at 1
  247.    \else\if\@tmpb B%beta single bond
  248.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  249.            {%
  250.            \thicklines%
  251.            \put(0,436){\line(0,1){110}}%      % single bond at 1
  252.            }%
  253.    \else\if\@tmpb A%alpha single bond
  254.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  255.            \@ifundefined{dottedline}{%
  256.              \put(0,436){\line(0,1){110}}%    % single bond at 1
  257.            }{{\thicklines%
  258.               \dottedline{20}(0,436)(0,546)}}%
  259.    \else%
  260.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  261.            \put(0,436){\line(0,1){110}}%      % single bond at 1
  262.    \fi\fi\fi\fi%
  263. \else% % no clipping
  264.    \if\@tmpb S%single bond
  265.     \ifx\@tmpc\empty%
  266.            \put(0,406){\line(0,1){140}}%      % single bond at 1
  267.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  268.     \else\if\@tmpc B%(B) beta
  269.            \putlatom{-42}{563}{\@memberb}%    % left type
  270.            {%
  271.            \thicklines%
  272.            \put(0,406){\line(-3,5){72}}%      % single bond at 1
  273.            }%
  274.     \else\if\@tmpc A%(A) alpha
  275.            \putratom{41}{563}{\@memberb}%     % right type
  276.        \@ifundefined{dottedline}{%
  277.            \put(0,406){\line(3,5){72}}%       % single bond at 1
  278.            }{{\thicklines%
  279.               \dottedline{20}(0,406)(72,526)}}%
  280.     \else\if\@tmpc b%(b) beta
  281.            \putlatom{-42}{563}{\@memberb}%    % left type
  282.            \put(0,406){\line(-3,5){72}}%      % single bond at 1
  283.     \else\if\@tmpc a%(a) alpha
  284.            \putratom{41}{563}{\@memberb}%     % right type
  285.            \put(0,406){\line(3,5){72}}%       % single bond at 1
  286.     \fi\fi\fi\fi\fi%
  287.    \else\if\@tmpb D%double bond
  288.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  289.            \put(-12,406){\line(0,1){140}}%    % double bond at 1
  290.            \put(12,406){\line(0,1){140}}%     % double bond at 1
  291.    \else\if\@tmpb B%beta single bond
  292.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  293.            {%
  294.            \thicklines%
  295.            \put(0,406){\line(0,1){140}}%      % single bond at 1
  296.            }%
  297.    \else\if\@tmpb A%alpha single bond
  298.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  299.            \@ifundefined{dottedline}{%
  300.              \put(0,406){\line(0,1){140}}%    % single bond at 1
  301.            }{{\thicklines%
  302.               \dottedline{20}(0,406)(0,546)}}%
  303.    \else%
  304.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  305.            \put(0,406){\line(0,1){140}}%      % single bond at 1
  306.    \fi\fi\fi\fi%
  307.  \fi}%
  308. %%%%%%%%%%%%%%%
  309. % subst. on 2 %
  310. %%%%%%%%%%%%%%%
  311. \def\@substb{%
  312.  \if@bclip %clipping
  313.    \if\@tmpb S%single bond
  314.     \ifx\@tmpc\empty%
  315.            \putratom{311}{363}{\@memberb}%    % right type
  316.            \put(201,327){\line(5,3){100}}%    % single bond at 2
  317.     \else\if\@tmpc B%(B) beta
  318.            \putratom{268}{420}{\@memberb}%    % right type
  319.            {%
  320.            \thicklines%
  321.            \put(201,358){\line(3,5){60}}%     % single bond at 2
  322.            }%
  323.     \else\if\@tmpc A%(A) alpha
  324.            \putratom{318}{280}{\@memberb}%    % right type
  325.        \@ifundefined{dottedline}{%
  326.            \put(201,303){\line(1,0){100}}%    % single bond at 2
  327.            }{{\thicklines%
  328.               \dottedline{20}(201,303)(301,303)}}%
  329.     \else\if\@tmpc b%(b) beta
  330.            \putratom{268}{420}{\@memberb}%    % right type
  331.            \put(201,358){\line(3,5){60}}%     % single bond at 2
  332.     \else\if\@tmpc a%(a) alpha%
  333.            \putratom{318}{280}{\@memberb}%    % right type
  334.            \put(201,303){\line(1,0){100}}%    % single bond at 2
  335.     \fi\fi\fi\fi\fi%
  336.    \else\if\@tmpb D%double bond
  337.            \putratom{311}{363}{\@memberb}%    % right type
  338.            \put(194,331){\line(5,3){100}}%    % double bond at 2
  339.            \put(200,305){\line(5,3){100}}%    % double bond at 2
  340.    \else\if\@tmpb B%beta single bond
  341.            \putratom{311}{363}{\@memberb}%    % right type
  342.            {%
  343.            \thicklines%
  344.            \put(201,327){\line(5,3){100}}%    % single bond at 2
  345.            }%
  346.    \else\if\@tmpb A%alpha single bond
  347.            \putratom{311}{363}{\@memberb}%    % right type
  348.        \@ifundefined{dottedline}{%
  349.            \put(201,327){\line(5,3){100}}%    % single bond at 2
  350.            }{{\thicklines%
  351.               \dottedline{20}(201,327)(301,375)}}%
  352.    \else%
  353.            \putratom{311}{363}{\@memberb}%    % right type
  354.            \put(201,327){\line(5,3){100}}%    % single bond at 2
  355.    \fi\fi\fi\fi%
  356.  \else% %no clipping
  357.    \if\@tmpb S%single bond
  358.     \ifx\@tmpc\empty%
  359.            \putratom{301}{363}{\@memberb}%    % right type
  360.            \put(171,303){\line(5,3){120}}%    % single bond at 2
  361.     \else\if\@tmpc B%(B) beta
  362.            \putratom{258}{410}{\@memberb}%    % right type
  363.            {%
  364.            \thicklines%
  365.            \put(171,303){\line(3,5){72}}%     % single bond at 2
  366.            }%
  367.     \else\if\@tmpc A%(A) alpha
  368.            \putratom{318}{280}{\@memberb}%    % right type
  369.        \@ifundefined{dottedline}{%
  370.            \put(171,303){\line(1,0){140}}%    % single bond at 2
  371.            }{{\thicklines%
  372.               \dottedline{20}(171,303)(311,303)}}%
  373.     \else\if\@tmpc b%(b) beta
  374.            \putratom{258}{410}{\@memberb}%    % right type
  375.            \put(171,303){\line(3,5){72}}%     % single bond at 2
  376.     \else\if\@tmpc a%(a) alpha
  377.            \putratom{318}{280}{\@memberb}%    % right type
  378.            \put(171,303){\line(1,0){140}}%    % single bond at 2
  379.     \fi\fi\fi\fi\fi%
  380.    \else\if\@tmpb D%double bond
  381.            \putratom{301}{363}{\@memberb}%    % right type
  382.            \put(168,310){\line(5,3){120}}%    % double bond at 2
  383.            \put(174,284){\line(5,3){120}}%    % double bond at 2
  384.    \else\if\@tmpb B%beta single bond
  385.            \putratom{301}{363}{\@memberb}%    % right type
  386.            {%
  387.            \thicklines%
  388.            \put(171,303){\line(5,3){120}}%    % single bond at 2
  389.            }%
  390.    \else\if\@tmpb A%alpha single bond
  391.            \putratom{301}{363}{\@memberb}%    % right type
  392.        \@ifundefined{dottedline}{%
  393.            \put(171,303){\line(5,3){120}}%    % single bond at 2
  394.            }{{\thicklines%
  395.               \dottedline{20}(171,303)(291,375)}}%
  396.    \else%
  397.            \putratom{301}{363}{\@memberb}%    % right type
  398.            \put(171,303){\line(5,3){120}}%    % single bond at 2
  399.    \fi\fi\fi\fi%
  400.  \fi}%
  401. %%%%%%%%%%%%%%%
  402. % subst. on 3 %
  403. %%%%%%%%%%%%%%%
  404. \def\@substc{%
  405.  \if@cclip %clipping
  406.    \if\@tmpb S%single bond
  407.     \ifx\@tmpc\empty%
  408.            \putratom{311}{-27}{\@memberb}%    % right type
  409.            \put(201,79){\line(5,-3){110}}%    % single bond at 3
  410.     \else\if\@tmpc B%(B) beta
  411.            \putratom{268}{-80}{\@memberb}%    % right type
  412.            {%
  413.            \thicklines%
  414.            \put(201,48){\line(3,-5){60}}%     % single bond at 3
  415.            }%
  416.     \else\if\@tmpc A%(A) alpha
  417.            \putratom{318}{74}{\@memberb}%     % right type
  418.        \@ifundefined{dottedline}{%
  419.            \put(201,103){\line(1,0){100}}%    % single bond at 3
  420.            }{{\thicklines%
  421.               \dottedline{20}(201,103)(311,103)}}%
  422.     \else\if\@tmpc b%(b) beta
  423.            \putratom{268}{-80}{\@memberb}%    % right type
  424.            \put(201,48){\line(3,-5){60}}%     % single bond at 3
  425.     \else\if\@tmpc a%(a) alpha
  426.            \putratom{318}{74}{\@memberb}%     % right type
  427.            \put(201,103){\line(1,0){100}}%    % single bond at 3
  428.     \fi\fi\fi\fi\fi%
  429.    \else\if\@tmpb D%double bond
  430.            \putratom{311}{-27}{\@memberb}%    % right type
  431.            \put(194,76){\line(5,-3){100}}%    % double bond at 3
  432.            \put(200,101){\line(5,-3){100}}%   % double bond at 3
  433.    \else\if\@tmpb B%beta single bond
  434.            \putratom{311}{-27}{\@memberb}%    % right type
  435.            {%
  436.            \thicklines%
  437.            \put(201,79){\line(5,-3){100}}%    % single bond at 3
  438.            }%
  439.    \else\if\@tmpb A%alpha single bond
  440.            \putratom{311}{-27}{\@memberb}%    % right type
  441.        \@ifundefined{dottedline}{%
  442.            \put(201,79){\line(5,-3){100}}%    % single bond at 3
  443.            }{{\thicklines%
  444.               \dottedline{20}(201,79)(301,31)}}%
  445.    \else%
  446.            \putratom{311}{-27}{\@memberb}%    % right type
  447.            \put(201,79){\line(5,-3){100}}%    % single bond at 3
  448.    \fi\fi\fi\fi%
  449.  \else%no clipping
  450.    \if\@tmpb S%single bond
  451.     \ifx\@tmpc\empty%
  452.            \putratom{301}{-27}{\@memberb}%    % right type
  453.            \put(171,103){\line(5,-3){120}}%   % single bond at 3
  454.     \else\if\@tmpc B%(B) beta
  455.            \putratom{258}{-70}{\@memberb}%    % right type
  456.            {%
  457.            \thicklines%
  458.            \put(171,103){\line(3,-5){72}}%    % single bond at 3
  459.            }%
  460.     \else\if\@tmpc A%(A) alpha
  461.            \putratom{318}{74}{\@memberb}%     % right type
  462.        \@ifundefined{dottedline}{%
  463.            \put(171,103){\line(1,0){140}}%    % single bond at 3
  464.            }{{\thicklines%
  465.               \dottedline{20}(171,103)(311,103)}}%
  466.     \else\if\@tmpc b%(b) beta
  467.            \putratom{258}{-70}{\@memberb}%    % right type
  468.            \put(171,103){\line(3,-5){72}}%    % single bond at 3
  469.     \else\if\@tmpc a%(a) alpha
  470.            \putratom{318}{74}{\@memberb}%     % right type
  471.            \put(171,103){\line(1,0){140}}%    % single bond at 3
  472.     \fi\fi\fi\fi\fi%
  473.    \else\if\@tmpb D%double bond
  474.            \putratom{301}{-27}{\@memberb}%    % right type
  475.            \put(168,96){\line(5,-3){120}}%    % double bond at 3
  476.            \put(174,121){\line(5,-3){120}}%   % double bond at 3
  477.    \else\if\@tmpb B%beta single bond
  478.            \putratom{301}{-27}{\@memberb}%    % right type
  479.            {%
  480.            \thicklines%
  481.            \put(171,103){\line(5,-3){120}}%   % single bond at 3
  482.            }%
  483.    \else\if\@tmpb A%alpha single bond
  484.            \putratom{301}{-27}{\@memberb}%    % right type
  485.        \@ifundefined{dottedline}{%
  486.            \put(171,103){\line(5,-3){120}}%   % single bond at 3
  487.            }{{\thicklines%
  488.               \dottedline{20}(171,103)(291,31)}}%
  489.    \else%
  490.            \putratom{301}{-27}{\@memberb}%    % right type
  491.            \put(171,103){\line(5,-3){120}}%   % single bond at 3
  492.    \fi\fi\fi\fi%
  493.  \fi}%
  494. %%%%%%%%%%%%%%%
  495. % subst. on 4 %
  496. %%%%%%%%%%%%%%%
  497. \def\@substd{%
  498. \if@clip %clipping
  499.     \if\@tmpb S%single bond
  500.     \ifx\@tmpc\empty%
  501.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  502.             \put(0,-30){\line(0,-1){110}}%    % single bond at 4
  503.     \else\if\@tmpc B%(B) beta
  504.            \putlatom{-42}{-230}{\@memberb}%   % left type
  505.            {%
  506.            \thicklines%
  507.            \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
  508.            }%
  509.     \else\if\@tmpc A%(A) alpha
  510.            \putratom{41}{-230}{\@memberb}%    % right type
  511.        \@ifundefined{dottedline}{%
  512.            \put(18,-30){\line(3,-5){60}}%     % single bond at 4
  513.            }{{\thicklines%
  514.               \dottedline{20}(18,-30)(72,-120)}}%
  515.     \else\if\@tmpc b%(b) beta
  516.            \putlatom{-42}{-230}{\@memberb}%   % left type
  517.            \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
  518.     \else\if\@tmpc a%(a) alpha
  519.            \putratom{41}{-230}{\@memberb}%    % right type
  520.            \put(18,-30){\line(3,-5){60}}%     % single bond at 4
  521.     \fi\fi\fi\fi\fi%
  522.    \else\if\@tmpb D%double bond
  523.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  524.            \put(-12,-30){\line(0,-1){110}}%   % double bond at 4
  525.            \put(12,-30){\line(0,-1){110}}%    % double bond at 4
  526.    \else\if\@tmpb B%beta single bond
  527.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  528.            {%
  529.            \thicklines%
  530.            \put(0,-30){\line(0,-1){110}}%    % single bond at 4
  531.            }%
  532.    \else\if\@tmpb A%alpha single bond
  533.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  534.        \@ifundefined{dottedline}{%
  535.            \put(0,-30){\line(0,-1){110}}%     % single bond at 4
  536.            }{{\thicklines%
  537.               \dottedline{20}(0,-30)(0,-140)}}%
  538.    \else%
  539.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  540.            \put(0,-30){\line(0,-1){110}}%     % single bond at 4
  541.    \fi\fi\fi\fi%
  542.  \else%
  543.    \if\@tmpb S%single bond
  544.     \ifx\@tmpc\empty%
  545.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  546.             \put(0,0){\line(0,-1){140}}%      % single bond at 4
  547.     \else\if\@tmpc B%(B) beta
  548.            \putlatom{-42}{-230}{\@memberb}%   % left type
  549.            {%
  550.            \thicklines%
  551.            \put(0,0){\line(-3,-5){72}}%       % single bond at 4
  552.            }%
  553.     \else\if\@tmpc A%(A) alpha
  554.            \putratom{41}{-230}{\@memberb}%    % right type
  555.        \@ifundefined{dottedline}{%
  556.            \put(0,0){\line(3,-5){72}}%        % single bond at 4
  557.            }{{\thicklines%
  558.               \dottedline{20}(0,0)(72,-120)}}%
  559.     \else\if\@tmpc b%(b) beta
  560.            \putlatom{-42}{-230}{\@memberb}%   % left type
  561.            \put(0,0){\line(-3,-5){72}}%       % single bond at 4
  562.     \else\if\@tmpc a%(a) alpha
  563.            \putratom{41}{-230}{\@memberb}%    % right type
  564.            \put(0,0){\line(3,-5){72}}%        % single bond at 4
  565.     \fi\fi\fi\fi\fi%
  566.    \else\if\@tmpb D%double bond
  567.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  568.            \put(-12,0){\line(0,-1){140}}%     % double bond at 4
  569.            \put(12,0){\line(0,-1){140}}%      % double bond at 4
  570.    \else\if\@tmpb B%beta single bond
  571.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  572.            {%
  573.            \thicklines%
  574.            \put(0,0){\line(0,-1){140}}%       % single bond at 4
  575.            }%
  576.    \else\if\@tmpb A%alpha single bond
  577.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  578.        \@ifundefined{dottedline}{%
  579.            \put(0,0){\line(0,-1){140}}%      % single bond at 4
  580.            }{{\thicklines%
  581.               \dottedline{20}(0,0)(0,-140)}}%
  582.    \else%
  583.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  584.            \put(0,0){\line(0,-1){140}}%       % single bond at 4
  585.    \fi\fi\fi\fi%
  586.  \fi}%
  587. %%%%%%%%%%%%%%%
  588. % subst. on 5 %
  589. %%%%%%%%%%%%%%%
  590. \def\@subste{%
  591.  \if@eclip%clipping
  592.    \if\@tmpb S%single bond
  593.     \ifx\@tmpc\empty%
  594.            \putlatom{-311}{-27}{\@memberb}%   % left type
  595.            \put(-201,79){\line(-5,-3){110}}%  % single bond at 5
  596.     \else\if\@tmpc B%(B) beta
  597.            \putlatom{-268}{-80}{\@memberb}%   % left type
  598.            {%
  599.            \thicklines%
  600.            \put(-201,48){\line(-3,-5){60}}%   % single bond at 5
  601.            }%
  602.     \else\if\@tmpc A%(A) alpha
  603.            \putlatom{-318}{74}{\@memberb}%    % left type
  604.        \@ifundefined{dottedline}{%
  605.            \put(-201,103){\line(-1,0){100}}%  % single bond at 5
  606.            }{{\thicklines%
  607.               \dottedline{20}(-201,103)(-311,103)}}%
  608.     \else\if\@tmpc b%(b) beta
  609.            \putlatom{-268}{-80}{\@memberb}%   % left type
  610.            \put(-201,48){\line(-3,-5){60}}%   % single bond at 5
  611.     \else\if\@tmpc a%(a) alpha
  612.            \putlatom{-318}{74}{\@memberb}%    % left type
  613.            \put(-201,103){\line(-1,0){100}}%  % single bond at 5
  614.     \fi\fi\fi\fi\fi%
  615.    \else\if\@tmpb D%double bond
  616.            \putlatom{-311}{-27}{\@memberb}%   % left type
  617.            \put(-194,76){\line(-5,-3){100}}%  % double bond at 5
  618.            \put(-200,101){\line(-5,-3){100}}% % double bond at 5
  619.    \else\if\@tmpb B%beta single bond
  620.            \putlatom{-311}{-27}{\@memberb}%   % left type
  621.            {%
  622.            \thicklines%
  623.            \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
  624.            }%
  625.    \else\if\@tmpb A%alpha single bond
  626.            \putlatom{-311}{-27}{\@memberb}%   % left type
  627.        \@ifundefined{dottedline}{%
  628.            \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
  629.            }{{\thicklines%
  630.               \dottedline{20}(-201,79)(-301,31)}}%
  631.    \else%
  632.            \putlatom{-311}{-27}{\@memberb}%   % left type
  633.            \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
  634.    \fi\fi\fi\fi%
  635. \else%no clipping
  636.    \if\@tmpb S%single bond
  637.     \ifx\@tmpc\empty%
  638.            \putlatom{-301}{-27}{\@memberb}%   % left type
  639.            \put(-171,103){\line(-5,-3){120}}% % single bond at 5
  640.     \else\if\@tmpc B%(B) beta
  641.            \putlatom{-258}{-70}{\@memberb}%   % left type
  642.            {%
  643.            \thicklines%
  644.            \put(-171,103){\line(-3,-5){72}}%  % single bond at 5
  645.            }%
  646.     \else\if\@tmpc A%(A) alpha
  647.            \putlatom{-326}{74}{\@memberb}%    % left type
  648.        \@ifundefined{dottedline}{%
  649.            \put(-171,103){\line(-1,0){140}}%  % single bond at 5
  650.            }{{\thicklines%
  651.               \dottedline{20}(-171,103)(-311,103)}}%
  652.     \else\if\@tmpc b%(b) beta
  653.            \putlatom{-258}{-70}{\@memberb}%   % left type
  654.            \put(-171,103){\line(-3,-5){72}}%  % single bond at 5
  655.     \else\if\@tmpc a%(a) alpha
  656.            \putlatom{-326}{74}{\@memberb}%    % left type
  657.            \put(-171,103){\line(-1,0){140}}%  % single bond at 5
  658.     \fi\fi\fi\fi\fi%
  659.    \else\if\@tmpb D%double bond
  660.            \putlatom{-301}{-27}{\@memberb}%   % left type
  661.            \put(-168,96){\line(-5,-3){120}}%  % double bond at 5
  662.            \put(-174,121){\line(-5,-3){120}}% % double bond at 5
  663.    \else\if\@tmpb B%beta single bond
  664.             \putlatom{-301}{-27}{\@memberb}%  % left type
  665.            {%
  666.            \thicklines%
  667.            \put(-171,103){\line(-5,-3){120}}% % single bond at 5
  668.            }%
  669.    \else\if\@tmpb A%alpha single bond
  670.             \putlatom{-301}{-27}{\@memberb}%  % left type
  671.        \@ifundefined{dottedline}{%
  672.            \put(-171,103){\line(-5,-3){120}}% % single bond at 5
  673.            }{{\thicklines%
  674.               \dottedline{20}(-171,103)(-311,31)}}%
  675.    \else%
  676.             \putlatom{-301}{-27}{\@memberb}%  % left type
  677.             \put(-171,103){\line(-5,-3){120}}%% single bond at 5
  678.    \fi\fi\fi\fi%
  679.  \fi}%
  680. %%%%%%%%%%%%%%%
  681. % subst. on 6 %
  682. %%%%%%%%%%%%%%%
  683. \def\@substf{%
  684.  \if@fclip %clipping
  685.    \if\@tmpb S%single bond
  686.     \ifx\@tmpc\empty%
  687.            \putlatom{-311}{363}{\@memberb}%   % left type
  688.            \put(-201,327){\line(-5,3){100}}%  % single bond at 6
  689.     \else\if\@tmpc B%(B) beta
  690.            \putlatom{-268}{420}{\@memberb}%   % left type
  691.            {%
  692.            \thicklines%
  693.            \put(-201,358){\line(-3,5){60}}%   % single bond at 6
  694.            }%
  695.     \else\if\@tmpc A%(A) alpha
  696.            \putlatom{-318}{280}{\@memberb}%   % left type
  697.        \@ifundefined{dottedline}{%
  698.            \put(-201,303){\line(-1,0){100}}%  % single bond at 6
  699.            }{{\thicklines%
  700.               \dottedline{20}(-201,303)(-301,303)}}%
  701.     \else\if\@tmpc b%(b) beta
  702.            \putlatom{-268}{420}{\@memberb}%   % left type
  703.            \put(-201,358){\line(-3,5){60}}%   % single bond at 6
  704.     \else\if\@tmpc a%(a) alpha
  705.            \putlatom{-318}{280}{\@memberb}%   % left type
  706.            \put(-201,303){\line(-1,0){100}}%  % single bond at 6
  707.     \fi\fi\fi\fi\fi%
  708.    \else\if\@tmpb D%double bond
  709.            \putlatom{-311}{363}{\@memberb}%   % left type
  710.            \put(-194,331){\line(-5,3){100}}%  % double bond at 6
  711.            \put(-200,305){\line(-5,3){100}}%  % double bond at 6
  712.    \else\if\@tmpb B%beta single bond
  713.            \putlatom{-311}{363}{\@memberb}%   % left type
  714.            {%
  715.            \thicklines%
  716.            \put(-201,327){\line(-5,3){100}}%  % single bond at 6
  717.            }%
  718.    \else\if\@tmpb A%alpha single bond
  719.            \putlatom{-311}{363}{\@memberb}%   % left type
  720.        \@ifundefined{dottedline}{%
  721.            \put(-201,327){\line(-5,3){100}}%  % single bond at 6
  722.            }{{\thicklines%
  723.               \dottedline{20}(-201,327)(-301,375)}}%
  724.    \else%
  725.            \putlatom{-311}{363}{\@memberb}%   % left type
  726.            \put(-201,327){\line(-5,3){100}}%  % single bond at 6
  727.    \fi\fi\fi\fi%
  728. \else%no clipping
  729.    \if\@tmpb S%single bond
  730.     \ifx\@tmpc\empty%
  731.            \putlatom{-301}{363}{\@memberb}%   % left type
  732.            \put(-171,303){\line(-5,3){120}}%  % single bond at 6
  733.     \else\if\@tmpc B%(B) beta
  734.            \putlatom{-258}{410}{\@memberb}%   % left type
  735.            {%
  736.            \thicklines%
  737.            \put(-171,303){\line(-3,5){72}}%   % single bond at 6
  738.            }%
  739.     \else\if\@tmpc A%(A) alpha
  740.            \putlatom{-326}{280}{\@memberb}%   % left type
  741.        \@ifundefined{dottedline}{%
  742.            \put(-171,303){\line(-1,0){140}}%  % single bond at 6
  743.            }{{\thicklines%
  744.               \dottedline{20}(-171,303)(-311,303)}}%
  745.     \else\if\@tmpc b%(b) beta
  746.            \putlatom{-258}{410}{\@memberb}%   % left type
  747.            \put(-171,303){\line(-3,5){72}}%   % single bond at 6
  748.     \else\if\@tmpc a%(a) alpha
  749.            \putlatom{-326}{280}{\@memberb}%   % left type
  750.            \put(-171,303){\line(-1,0){140}}%  % single bond at 6
  751.     \fi\fi\fi\fi\fi%
  752.    \else\if\@tmpb D%double bond
  753.            \putlatom{-301}{363}{\@memberb}%   % left type
  754.            \put(-168,310){\line(-5,3){120}}%  % double bond at 6
  755.            \put(-174,284){\line(-5,3){120}}%  % double bond at 6
  756.    \else\if\@tmpb B%beta single bond
  757.            \putlatom{-301}{363}{\@memberb}%   % left type
  758.            {%
  759.            \thicklines%
  760.            \put(-171,303){\line(-5,3){120}}%  % single bond at 6
  761.            }%
  762.    \else\if\@tmpb A%alpha single bond
  763.            \putlatom{-301}{363}{\@memberb}%   % left type
  764.        \@ifundefined{dottedline}{%
  765.            \put(-171,303){\line(-5,3){120}}%  % single bond at 6
  766.            }{{\thicklines%
  767.               \dottedline{20}(-171,303)(-311,375)}}%
  768.    \else%
  769.            \putlatom{-301}{363}{\@memberb}%   % left type
  770.            \put(-171,303){\line(-5,3){120}}%  % single bond at 6
  771.    \fi\fi\fi\fi%
  772. \fi}%
  773. %
  774. % **************************************************************
  775. % * setting of atoms and bonds on a vertical six-membered ring *
  776. % **************************************************************
  777. %
  778. %    \setsixringv{SUBSLIST}{AD}{LOWER}{UPPER}{ORDER}
  779. %
  780. %     SUBSLIST: list of substituents (max 6 substitution positions)
  781. %
  782. %       for n = 1 to 6 
  783. %
  784. %           nD         :  exocyclic double bond at n-atom
  785. %           n or nS    :  exocyclic single bond at n-atom
  786. %           nA         :  alpha single bond at n-atom
  787. %           nB         :  beta single bond at n-atom
  788. %           nSA        :  alpha single bond at n-atom (boldface)
  789. %           nSB        :  beta single bond at n-atom (dotted line)
  790. %           nSa        :  alpha (not specified) single bond at n-atom
  791. %           nSb        :  beta (not specified) single bond at n-atom
  792. %
  793. %    AD       : adjustment      e.g. 0 for six-membered rings
  794. %    LOWER    : lower limit     LOWER < effective range < UPPER
  795. %    UPPER    : upper limit
  796. %    ORDER     : >= 0 clockwise, <0 anti-clockwise
  797. %
  798. \def\setsixringv#1#2#3#4#5{%
  799. \@forsemicol\member:=#1\do{\expandafter\@m@mb@r\member;\relax%
  800. \expandafter\threech@r\@membera{}{}%
  801. \ifnum#5 < 0\relax%
  802. \@tmpaa=-\@tmpa\relax \advance\@tmpaa by #2\relax%
  803. \else\@tmpaa=\@tmpa\relax \advance\@tmpaa by #2\relax \fi
  804. \ifnum\@tmpaa >#3\relax%
  805. \ifnum\@tmpaa <#4\relax%
  806. \ifcase\@tmpaa%0 omit
  807.  \or \@substa% subst. on 1
  808.  \or \@substb% subst. on 2
  809.  \or \@substc% subst. on 3
  810.  \or \@substd% subst. on 4
  811.  \or \@subste% subst. on 5
  812.  \or \@substf% subst. on 6
  813. \fi%end of ifcase
  814. \fi\fi%
  815. }}%
  816. %
  817. % ***********************************************************
  818. % * setting of atoms and bonds on a decaline (six-six) ring *
  819. % ***********************************************************
  820. %
  821. %   \setdecaringv{SUBSLIST}{AD}{LOWER}{UPPER}{ORDER}
  822. %
  823. %     SUBSLIST: list of substituents (max 8 substitution positions)
  824. %
  825. %       for n = 1 to 8 
  826. %
  827. %           nD         :  exocyclic double bond at n-atom
  828. %           n or nS    :  exocyclic single bond at n-atom
  829. %           nA         :  alpha single bond at n-atom
  830. %           nB         :  beta single bond at n-atom
  831. %           nSA        :  alpha single bond at n-atom (boldface)
  832. %           nSB        :  beta single bond at n-atom (dotted line)
  833. %           nSa        :  alpha (not specified) single bond at n-atom
  834. %           nSb        :  beta (not specified) single bond at n-atom
  835. %
  836. %        for 0 (fused positions)
  837. %
  838. %           0FA        :  alpha single bond at 8a 
  839. %           0FB        :  beta single bond at 8a
  840. %           0FU        :  unspecified single bond at 8a
  841. %           0GA        :  alpha single bond at 4a 
  842. %           0GB        :  beta single bond at 4a
  843. %           0GU        :  unspecified single bond at 4a
  844. %
  845. %    AD       : adjustment      e.g. 0 for six-membered rings
  846. %    LOWER    : lower limit     LOWER < effective range < UPPER
  847. %    UPPER    : upper limit
  848. %    ORDER    : >= 0 clockwise, <0 anti-clockwise
  849. %
  850. \def\setdecaringv#1#2#3#4#5{%
  851. \@forsemicol\member:=#1\do{\expandafter\@m@mb@r\member;\relax%
  852. \expandafter\threech@r\@membera{}{}%
  853. \ifnum#5 <0\relax%
  854. \@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax%
  855. \else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax\fi%
  856. \ifnum\@tmpaa >#3\relax%
  857. \ifnum\@tmpaa <#4\relax%
  858. \ifcase\@tmpaa%
  859. %%%%%%%%%%%%%%%%%%%
  860. % 0 fused positions
  861. %%%%%%%%%%%%%%%%%%% 
  862.  \if\@tmpb F%single bond at 8a (fused position)
  863.    \if\@tmpc B%beta single bond at 8a (fused position)
  864.            \putlratom{140}{460}{\@memberb}%   % left or right type
  865.            {%
  866.            \thicklines%
  867.            \put(171,303){\line(0,1){140}}%    % single bond at 8a
  868.            }%
  869.    \else\if\@tmpc A%alpha single bond at 8a (fused position)
  870.            \putlratom{140}{460}{\@memberb}%   % left or right type
  871.            \@ifundefined{dottedline}{%
  872.              \put(171,303){\line(0,1){140}}%  % single bond at 8a
  873.            }{{\thicklines%
  874.               \dottedline{20}(171,303)(171,443)}}%
  875.    \else\if\@tmpc U%beta single bond at 8a (fused position)
  876.            \putlratom{140}{460}{\@memberb}%   % left or right type
  877.            \put(168,303){$\wr$}% unspecified single bond at 4a
  878.            \put(168,353){$\wr$}%
  879.            \put(168,403){$\wr$}%
  880.    \else\if\@tmpc S%beta single bond at 8a (fused position)
  881.            \putlratom{140}{460}{\@memberb}%   % left or right type
  882.              \put(171,303){\line(0,1){140}}%  % single bond at 8a
  883.    \else\ifx\@tmpc\empty%beta single bond at 8a (fused position)
  884.            \putlratom{140}{460}{\@memberb}%   % left or right type
  885.              \put(171,303){\line(0,1){140}}%  % single bond at 8a
  886.    \fi\fi\fi\fi\fi%
  887.  \else\if\@tmpb G%single bond at 4a (fused position)
  888.    \if\@tmpc B%beta single bond at 4a (fused position)
  889.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  890.            {%
  891.            \thicklines%
  892.            \put(171,103){\line(0,-1){140}}%   % single bond at 4a
  893.            }%
  894.    \else\if\@tmpc A%alpha single bond at 4a (fused position)
  895.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  896.        \@ifundefined{dottedline}{%
  897.            \put(171,103){\line(0,-1){140}}%   % single bond at 4a
  898.            }{{\thicklines%
  899.               \dottedline{20}(171,103)(171,-37)}}%
  900.    \else\if\@tmpc U%beta single bond at 4a (fused position)
  901.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  902.            \put(168,43){$\wr$}% unspecified single bond at 4a
  903.            \put(168,-8){$\wr$}% 
  904.            \put(168,-57){$\wr$}% 
  905.    \else\if\@tmpc S%alpha single bond at 4a (fused position)
  906.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  907.            \put(171,103){\line(0,-1){140}}%   % single bond at 4a
  908.    \else\ifx\@tmpc\empty%alpha single bond at 4a (fused position)
  909.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  910.            \put(171,103){\line(0,-1){140}}%   % single bond at 4a
  911.    \fi\fi\fi\fi\fi%
  912.  \fi\fi%
  913. %%%%%%%%%%%%%%%%%
  914. \or% subst. on 1
  915. %%%%%%%%%%%%%%%%%
  916.    \if\@tmpb S%single bond
  917.     \ifx\@tmpc\empty%
  918.            \put(342,406){\line(0,1){140}}%    % single bond at 1
  919.            \putlratom{311}{563}{\@memberb}%   % left or right type
  920.     \else\if\@tmpc B%(B) beta
  921.            \putlatom{300}{563}{\@memberb}%    % left type
  922.            {%
  923.            \thicklines%
  924.            \put(342,406){\line(-3,5){72}}%    % single bond at 1
  925.            }%
  926.     \else\if\@tmpc A%(A) alpha
  927.            \putratom{383}{563}{\@memberb}%    % right type
  928.        \@ifundefined{dottedline}{%
  929.            \put(342,406){\line(3,5){72}}%     % single bond at 1
  930.            }{{\thicklines%
  931.               \dottedline{20}(342,406)(414,526)}}%
  932.     \else\if\@tmpc b%(b) beta
  933.            \putlatom{300}{563}{\@memberb}%    % left type
  934.            \put(342,406){\line(-3,5){72}}%    % single bond at 1
  935.     \else\if\@tmpc a%(a) alpha
  936.            \putratom{383}{563}{\@memberb}%    % right type
  937.            \put(342,406){\line(3,5){72}}%     % single bond at 1
  938.     \fi\fi\fi\fi\fi
  939.    \else\if\@tmpb D%double bond
  940.            \putlratom{311}{563}{\@memberb}%   % left or right type
  941.            \put(330,406){\line(0,1){140}}%    % double bond at 1
  942.            \put(354,406){\line(0,1){140}}%    % double bond at 1
  943.    \else\if\@tmpb B%beta single bond
  944.            \putlratom{311}{563}{\@memberb}%   % left or right type
  945.            {%
  946.            \thicklines%
  947.            \put(342,406){\line(0,1){140}}%    % single bond at 1
  948.            }%
  949.    \else\if\@tmpb A%alpha single bond
  950.            \putlratom{311}{563}{\@memberb}%   % left or right type
  951.            \@ifundefined{dottedline}{%
  952.              \put(342,406){\line(0,1){140}}%  %single bond at 1
  953.            }{{\thicklines%
  954.               \dottedline{20}(342,406)(342,546)}}%
  955.    \else%
  956.            \putlratom{311}{563}{\@memberb}%   % left or right type
  957.            \put(342,406){\line(0,1){140}}%    % single bond at 1
  958.    \fi\fi\fi\fi%
  959. %%%%%%%%%%%%%%%%
  960. \or% subst. on 2
  961. %%%%%%%%%%%%%%%%
  962.    \if\@tmpb S%single bond
  963.     \ifx\@tmpc\empty%
  964.            \putratom{643}{363}{\@memberb}%    % right type
  965.            \put(513,303){\line(5,3){120}}%    % single bond at 2
  966.     \else\if\@tmpc B%(B) beta
  967.            \putratom{600}{410}{\@memberb}%    % right type
  968.            {%
  969.            \thicklines%
  970.            \put(513,303){\line(3,5){72}}%     % single bond at 2
  971.            }%
  972.     \else\if\@tmpc A%(A) alpha
  973.            \putratom{660}{280}{\@memberb}%    % right type
  974.        \@ifundefined{dottedline}{%
  975.            \put(513,303){\line(1,0){140}}%    % single bond at 2
  976.            }{{\thicklines%
  977.               \dottedline{20}(513,303)(653,303)}}%
  978.     \else\if\@tmpc b%(b) beta
  979.            \putratom{600}{410}{\@memberb}%    % right type
  980.            \put(513,303){\line(3,5){72}}%     % single bond at 2
  981.     \else\if\@tmpc a%(a) alpha
  982.            \putratom{660}{280}{\@memberb}%    % right type
  983.            \put(513,303){\line(1,0){140}}%    % single bond at 2
  984.     \fi\fi\fi\fi\fi%
  985.    \else\if\@tmpb D%double bond
  986.            \putratom{643}{363}{\@memberb}%    % right type
  987.            \put(510,310){\line(5,3){120}}%  % double bond at 2
  988.            \put(516,284){\line(5,3){120}}%  % double bond at 2
  989.    \else\if\@tmpb B%beta single bond
  990.            \putratom{643}{363}{\@memberb}%    % right type
  991.            {%
  992.            \thicklines%
  993.            \put(513,303){\line(5,3){120}}%  % single bond at 2
  994.            }%
  995.    \else\if\@tmpb A%alpha single bond
  996.            \putratom{643}{363}{\@memberb}%    % right type
  997.        \@ifundefined{dottedline}{%
  998.            \put(513,303){\line(5,3){120}}%    % single bond at 2
  999.            }{{\thicklines%
  1000.               \dottedline{20}(513,303)(633,375)}}%
  1001.    \else%
  1002.            \putratom{643}{363}{\@memberb}%    % right type
  1003.            \put(513,303){\line(5,3){120}}%    % single bond at 2
  1004.    \fi\fi\fi\fi%
  1005. %%%%%%%%%%%%%%%%
  1006. \or% subst. on 3
  1007. %%%%%%%%%%%%%%%%
  1008.    \if\@tmpb S%single bond
  1009.     \ifx\@tmpc\empty%
  1010.            \putratom{643}{-27}{\@memberb}%    % right type
  1011.            \put(513,103){\line(5,-3){120}}%   % single bond at 3
  1012.     \else\if\@tmpc B%(B) beta
  1013.            \putratom{600}{-70}{\@memberb}%    % right type
  1014.            {%
  1015.            \thicklines%
  1016.            \put(513,103){\line(3,-5){72}}%    % single bond at 3
  1017.            }%
  1018.     \else\if\@tmpc A%(A) alpha
  1019.            \putratom{660}{74}{\@memberb}%     % right type
  1020.        \@ifundefined{dottedline}{%
  1021.            \put(513,103){\line(1,0){140}}%    % single bond at 3
  1022.            }{{\thicklines%
  1023.               \dottedline{20}(513,103)(653,103)}}%
  1024.     \else\if\@tmpc b%(b) beta
  1025.            \putratom{600}{-70}{\@memberb}%    % right type
  1026.            \put(513,103){\line(3,-5){72}}%    % single bond at 3
  1027.     \else\if\@tmpc a%(a) alpha
  1028.            \putratom{660}{74}{\@memberb}%     % right type
  1029.            \put(513,103){\line(1,0){140}}%    % single bond at 3
  1030.     \fi\fi\fi\fi\fi%
  1031.    \else\if\@tmpb D%double bond
  1032.            \putratom{643}{-27}{\@memberb}%    % right type
  1033.            \put(510,96){\line(5,-3){120}}%    % double bond at 3
  1034.            \put(516,121){\line(5,-3){120}}%   % double bond at 3
  1035.    \else\if\@tmpb B%beta single bond
  1036.            \putratom{643}{-27}{\@memberb}%    % right type
  1037.            {%
  1038.            \thicklines%
  1039.            \put(513,103){\line(5,-3){120}}%   % single bond at 3
  1040.            }%
  1041.    \else\if\@tmpb A%alpha single bond
  1042.            \putratom{643}{-27}{\@memberb}%    % right type
  1043.        \@ifundefined{dottedline}{%
  1044.            \put(513,103){\line(5,-3){120}}%   % single bond at 3
  1045.            }{{\thicklines%
  1046.               \dottedline{20}(513,103)(633,31)}}%
  1047.    \else%
  1048.            \putratom{643}{-27}{\@memberb}%    % right type
  1049.            \put(513,103){\line(5,-3){120}}%   % single bond at 3
  1050.    \fi\fi\fi\fi%
  1051. %%%%%%%%%%%%%%%%
  1052. \or% subst. on 4
  1053. %%%%%%%%%%%%%%%% 
  1054.    \if\@tmpb S%single bond
  1055.     \ifx\@tmpc\empty%
  1056.            \putlratom{311}{-230}{\@memberb}%  % left or right type
  1057.            \put(342,0){\line(0,-1){140}}%     % single bond at 4
  1058.     \else\if\@tmpc B%(B) beta
  1059.            \putlatom{300}{-230}{\@memberb}%   % left type
  1060.            {%
  1061.            \thicklines%
  1062.            \put(342,0){\line(-3,-5){72}}%     % single bond at 4
  1063.            }%
  1064.     \else\if\@tmpc A%(A) alpha
  1065.            \putratom{383}{-230}{\@memberb}%   % right type
  1066.        \@ifundefined{dottedline}{%
  1067.            \put(342,0){\line(3,-5){72}}%      % single bond at 4
  1068.            }{{\thicklines%
  1069.               \dottedline{20}(342,0)(414,-120)}}%
  1070.     \else\if\@tmpc b%(b) beta
  1071.            \putlatom{300}{-230}{\@memberb}%   % left type
  1072.            \put(342,0){\line(-3,-5){72}}%     % single bond at 4
  1073.     \else\if\@tmpc a%(a) alpha
  1074.            \putratom{383}{-230}{\@memberb}%   % right type
  1075.            \put(342,0){\line(3,-5){72}}%      % single bond at 4
  1076.     \fi\fi\fi\fi\fi%
  1077.    \else\if\@tmpb D%double bond
  1078.            \putlratom{311}{-230}{\@memberb}%  % left or right type
  1079.            \put(330,0){\line(0,-1){140}}%     % double bond at 4
  1080.            \put(354,0){\line(0,-1){140}}%     % double bond at 4
  1081.    \else\if\@tmpb B%beta single bond
  1082.            \putlratom{311}{-230}{\@memberb}%  % left or right type
  1083.            {%
  1084.            \thicklines%
  1085.            \put(342,0){\line(0,-1){140}}%     % single bond at 4
  1086.            }%
  1087.    \else\if\@tmpb A%alpha single bond
  1088.            \putlratom{311}{-230}{\@memberb}%  % left or right type
  1089.        \@ifundefined{dottedline}{%
  1090.            \put(342,0){\line(0,-1){140}}%     % single bond at 4
  1091.            }{{\thicklines%
  1092.               \dottedline{20}(342,0)(342,-140)}}%
  1093.    \else%
  1094.            \putlratom{311}{-230}{\@memberb}%  % left or right type
  1095.            \put(342,0){\line(0,-1){140}}%     % single bond at 4
  1096.    \fi\fi\fi\fi%
  1097. %%%%%%%%%%%%%%%%
  1098. \or% subst. on 5
  1099. %%%%%%%%%%%%%%%%
  1100.    \if\@tmpb S%single bond
  1101.     \ifx\@tmpc\empty%
  1102.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  1103.            \put(0,0){\line(0,-1){140}}%       % single bond at 5
  1104.     \else\if\@tmpc B%(B) beta
  1105.            \putlatom{-42}{-230}{\@memberb}%   % left type
  1106.            {%
  1107.            \thicklines%
  1108.            \put(0,0){\line(-3,-5){72}}%       % single bond at 5
  1109.            }%
  1110.     \else\if\@tmpc A%(A) alpha
  1111.            \putratom{41}{-230}{\@memberb}%    % right type
  1112.        \@ifundefined{dottedline}{%
  1113.            \put(0,0){\line(3,-5){72}}%        % single bond at 5
  1114.            }{{\thicklines%
  1115.               \dottedline{20}(0,0)(72,-120)}}%
  1116.     \else\if\@tmpc b%(b) beta
  1117.            \putlatom{-42}{-230}{\@memberb}%   % left type
  1118.            \put(0,0){\line(-3,-5){72}}%       % single bond at 5
  1119.     \else\if\@tmpc a%(a) alpha
  1120.            \putratom{41}{-230}{\@memberb}%    % right type
  1121.            \put(0,0){\line(3,-5){72}}%        % single bond at 5
  1122.     \fi\fi\fi\fi\fi
  1123.    \else\if\@tmpb D%double bond
  1124.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  1125.            \put(-12,0){\line(0,-1){140}}%     % double bond at 5
  1126.            \put(12,0){\line(0,-1){140}}%      % double bond at 5
  1127.    \else\if\@tmpb B%beta single bond
  1128.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  1129.            {%
  1130.            \thicklines%
  1131.            \put(0,0){\line(0,-1){140}}%       % single bond at 5
  1132.            }%
  1133.    \else\if\@tmpb A%alpha single bond
  1134.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  1135.        \@ifundefined{dottedline}{%
  1136.            \put(0,0){\line(0,-1){140}}%       % single bond at 5
  1137.            }{{\thicklines%
  1138.               \dottedline{20}(0,0)(0,-140)}}%
  1139.    \else% 
  1140.            \putlratom{-31}{-230}{\@memberb}%  % left or right type
  1141.            \put(0,0){\line(0,-1){140}}%       % single bond at 5
  1142.    \fi\fi\fi\fi%
  1143. %%%%%%%%%%%%%%%%
  1144. \or% subst. on 6
  1145. %%%%%%%%%%%%%%%%
  1146.    \if\@tmpb S%single bond
  1147.     \ifx\@tmpc\empty%
  1148.            \putlatom{-301}{-27}{\@memberb}%   % left type
  1149.            \put(-171,103){\line(-5,-3){120}}% % single bond at 6
  1150.     \else\if\@tmpc B%(B) beta
  1151.            \putlatom{-258}{-70}{\@memberb}%   % left type
  1152.            {%
  1153.            \thicklines%
  1154.            \put(-171,103){\line(-3,-5){72}}%  % single bond at 6
  1155.            }%
  1156.     \else\if\@tmpc A%(A) alpha
  1157.            \putlatom{-326}{74}{\@memberb}%    % left type
  1158.        \@ifundefined{dottedline}{%
  1159.            \put(-171,103){\line(-1,0){140}}%  % single bond at 6
  1160.            }{{\thicklines%
  1161.               \dottedline{20}(-171,103)(-311,103)}}%
  1162.     \else\if\@tmpc b%(b) beta
  1163.            \putlatom{-258}{-70}{\@memberb}%   % left type
  1164.            \put(-171,103){\line(-3,-5){72}}%  % single bond at 6
  1165.     \else\if\@tmpc a%(a) alpha
  1166.            \putlatom{-326}{74}{\@memberb}%    % left type
  1167.            \put(-171,103){\line(-1,0){140}}%  % single bond at 6
  1168.     \fi\fi\fi\fi\fi
  1169.    \else\if\@tmpb D%double bond
  1170.            \putlatom{-301}{-27}{\@memberb}%   % left type
  1171.            \put(-168,96){\line(-5,-3){120}}%  % double bond at 6
  1172.            \put(-174,121){\line(-5,-3){120}}% % double bond at 6
  1173.    \else\if\@tmpb B%beta single bond
  1174.             \putlatom{-301}{-27}{\@memberb}%  % left type
  1175.            {%
  1176.            \thicklines%
  1177.            \put(-171,103){\line(-5,-3){120}}% % single bond at 6
  1178.            }%
  1179.    \else\if\@tmpb A%alpha single bond
  1180.             \putlatom{-301}{-27}{\@memberb}%  % left type
  1181.        \@ifundefined{dottedline}{%
  1182.            \put(-171,103){\line(-5,-3){120}}% % single bond at 6
  1183.            }{{\thicklines%
  1184.               \dottedline{20}(-171,103)(-311,31)}}%
  1185.    \else%
  1186.             \putlatom{-301}{-27}{\@memberb}%  % left type
  1187.             \put(-171,103){\line(-5,-3){120}}% single bond at 6
  1188.    \fi\fi\fi\fi%
  1189. %%%%%%%%%%%%%%%%
  1190. \or% subst. on 7
  1191. %%%%%%%%%%%%%%%%
  1192.    \if\@tmpb S%single bond
  1193.     \ifx\@tmpc\empty%
  1194.            \putlatom{-301}{363}{\@memberb}%   % left type
  1195.            \put(-171,303){\line(-5,3){120}}%  % single bond at 7
  1196.     \else\if\@tmpc B%(B) beta
  1197.            \putlatom{-258}{410}{\@memberb}%   % left type
  1198.            {%
  1199.            \thicklines%
  1200.            \put(-171,303){\line(-3,5){72}}%   % single bond at 7
  1201.            }%
  1202.     \else\if\@tmpc A%(A) alpha
  1203.            \putlatom{-326}{280}{\@memberb}%   % left type
  1204.        \@ifundefined{dottedline}{%
  1205.            \put(-171,303){\line(-1,0){140}}%  % single bond at 7
  1206.            }{{\thicklines%
  1207.               \dottedline{20}(-171,303)(-311,303)}}%
  1208.     \else\if\@tmpc b%(b) beta
  1209.            \putlatom{-258}{410}{\@memberb}%   % left type
  1210.            \put(-171,303){\line(-3,5){72}}%   % single bond at 7
  1211.     \else\if\@tmpc a%(a) alpha
  1212.            \putlatom{-326}{280}{\@memberb}%   % left type
  1213.            \put(-171,303){\line(-1,0){140}}%  % single bond at 7
  1214.     \fi\fi\fi\fi\fi
  1215.    \else\if\@tmpb D%double bond
  1216.            \putlatom{-301}{363}{\@memberb}%   % left type
  1217.            \put(-168,310){\line(-5,3){120}}%  % double bond at 7
  1218.            \put(-174,284){\line(-5,3){120}}%  % double bond at 7
  1219.    \else\if\@tmpb B%beta single bond
  1220.            \putlatom{-301}{363}{\@memberb}%   % left type
  1221.            {%
  1222.            \thicklines%
  1223.            \put(-171,303){\line(-5,3){120}}%  % single bond at 7
  1224.            }%
  1225.    \else\if\@tmpb A%alpha single bond
  1226.            \putlatom{-301}{363}{\@memberb}%    % left type
  1227.        \@ifundefined{dottedline}{%
  1228.            \put(-171,303){\line(-5,3){120}}%   % single bond at 7
  1229.            }{{\thicklines%
  1230.               \dottedline{20}(-171,303)(-311,375)}}%
  1231.    \else%
  1232.            \putlatom{-301}{363}{\@memberb}%    % left type
  1233.            \put(-171,303){\line(-5,3){120}}%   % single bond at 7
  1234.    \fi\fi\fi\fi%
  1235. %%%%%%%%%%%%%%%%
  1236. \or% subst. on 8
  1237. %%%%%%%%%%%%%%%%
  1238.    \if\@tmpb S%single bond
  1239.     \ifx\@tmpc\empty%
  1240.            \put(0,406){\line(0,1){140}}%      % single bond at 8
  1241.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  1242.     \else\if\@tmpc B%(B) beta
  1243.            \putlatom{-42}{563}{\@memberb}%    % left type
  1244.            {%
  1245.            \thicklines%
  1246.            \put(0,406){\line(-3,5){72}}%      % single bond at 8
  1247.            }%
  1248.     \else\if\@tmpc A%(A) alpha
  1249.            \putratom{41}{563}{\@memberb}%     % right type
  1250.        \@ifundefined{dottedline}{%
  1251.            \put(0,406){\line(3,5){72}}%       % single bond at 8
  1252.            }{{\thicklines%
  1253.               \dottedline{20}(0,406)(72,526)}}%
  1254.     \else\if\@tmpc b%(b) beta
  1255.            \putlatom{-42}{563}{\@memberb}%    % left type
  1256.            \put(0,406){\line(-3,5){72}}%      % single bond at 8
  1257.     \else\if\@tmpc a%(a) alpha
  1258.            \putratom{41}{563}{\@memberb}%     % right type
  1259.            \put(0,406){\line(3,5){72}}%       % single bond at 8
  1260.     \fi\fi\fi\fi\fi%
  1261.    \else\if\@tmpb D%double bond
  1262.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  1263.            \put(-12,406){\line(0,1){140}}%    % double bond at 8
  1264.            \put(12,406){\line(0,1){140}}%     % double bond at 8
  1265.    \else\if\@tmpb B%beta single bond
  1266.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  1267.            {%
  1268.            \thicklines%
  1269.            \put(0,406){\line(0,1){140}}%      % single bond at 8
  1270.            }%
  1271.    \else\if\@tmpb A%alpha single bond
  1272.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  1273.            \@ifundefined{dottedline}{%
  1274.              \put(0,406){\line(0,1){140}}%    % single bond at 8
  1275.            }{{\thicklines%
  1276.               \dottedline{20}(0,406)(0,546)}}%
  1277.    \else%
  1278.            \putlratom{-31}{563}{\@memberb}%   % left or right type
  1279.            \put(0,406){\line(0,1){140}}%      % single bond at 8
  1280.    \fi\fi\fi\fi%
  1281. \fi %end of ifcase
  1282. \fi\fi}}%
  1283. %
  1284. % ******************************************************
  1285. % * setting of atoms and bonds at fused bond positions *
  1286. % ******************************************************
  1287. %
  1288. %   \setfusedbond{SUBSLIST}{AD}{LOWER}{UPPER}{ORDER}
  1289. %
  1290. %     SUBSLIST: list of substituents (max 3 substitution positions)
  1291. %
  1292. %        for 0 (vertical (0,1) fused positions)
  1293. %                F == (171,303)  G == (171,103)
  1294. %
  1295. %           0FA        :  alpha single bond at F 
  1296. %           0FB        :  beta single bond at F
  1297. %           0FU        :  unspecified single bond at F
  1298. %           0GA        :  alpha single bond at G 
  1299. %           0GB        :  beta single bond at G
  1300. %           0GU        :  unspecified single bond at G
  1301. %
  1302. %        for 1 (diagonal (5,-3) fused positions)
  1303. %                F == (0,406), G == (171,303)
  1304. %
  1305. %           1FA        :  alpha single bond at F 
  1306. %           1FB        :  beta single bond at F
  1307. %           1FC        :  alpha single bond (downward) at F 
  1308. %           1FD        :  beta single bond (downward) at F
  1309. %           1FU        :  unspecified single bond at F
  1310. %           1GA        :  alpha single bond at G 
  1311. %           1GB        :  beta single bond at G
  1312. %           1GC        :  alpha single bond (upward) at G
  1313. %           1GD        :  beta single bond (upward) at G
  1314. %           1GU        :  unspecified single bond at G
  1315. %
  1316. %        for 2 (diagonal (-5,-3) fused positions)
  1317. %                F == (0,406), G == (-171,303)
  1318. %
  1319. %           2FA        :  alpha single bond at F 
  1320. %           2FB        :  beta single bond at F
  1321. %           2FC        :  alpha single bond (upward) at F 
  1322. %           2FD        :  beta single bond (upward) at F
  1323. %           2FU        :  unspecified single bond at F
  1324. %           2GA        :  alpha single bond at G 
  1325. %           2GB        :  beta single bond at G
  1326. %           2GC        :  alpha single bond (downward) at G
  1327. %           2GD        :  beta single bond (downward) at G
  1328. %           2GU        :  unspecified single bond at G
  1329. %
  1330. %        for 3 (horizontal (1,0) fused positions)
  1331. %                G == (303,171)  F == (103,171)
  1332. %%%%%                F == (303,171)  G == (103,171)
  1333. %
  1334. %           0FA        :  alpha single bond at F 
  1335. %           0FB        :  beta single bond at F
  1336. %           0FU        :  unspecified single bond at F
  1337. %           0GA        :  alpha single bond at G 
  1338. %           0GB        :  beta single bond at G
  1339. %           0GU        :  unspecified single bond at G
  1340. %
  1341. %    AD       : adjustment      e.g. 0 for six-membered rings
  1342. %    LOWER    : lower limit     LOWER < effective range < UPPER
  1343. %    UPPER    : upper limit
  1344. %    ORDER    : >= 0 clockwise, <0 anti-clockwise
  1345. %
  1346. \def\setfusedbond#1#2#3#4#5{%
  1347. \@forsemicol\member:=#1\do{\expandafter\@m@mb@r\member;\relax%
  1348. \expandafter\threech@r\@membera{}{}%
  1349. \ifnum#5<0\relax%
  1350. \@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax%
  1351. \else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax\fi%
  1352. \ifnum\@tmpaa >#3\relax%
  1353. \ifnum\@tmpaa <#4\relax%
  1354. \ifcase\@tmpaa%
  1355. %%%%%%%%%%%%%%%%%%%
  1356. % 0 fused positions   % F == (171,303)  G == (171,103)
  1357. %%%%%%%%%%%%%%%%%%% 
  1358.  \if\@tmpb F%single bond at F (fused position)
  1359.    \if\@tmpc B%beta single bond
  1360.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1361.            {%
  1362.            \thicklines%
  1363.            \put(171,303){\line(0,1){140}}%    % single bond at F
  1364.            }%
  1365.    \else\if\@tmpc A%alpha single bond
  1366.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1367.            \@ifundefined{dottedline}{%
  1368.              \put(171,303){\line(0,1){140}}%  % single bond at F
  1369.            }{{\thicklines%
  1370.               \dottedline{20}(171,303)(171,443)}}%
  1371.    \else\if\@tmpc U% unspecified single bond
  1372.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1373.            \put(168,303){$\wr$}% unspecified single bond at F
  1374.            \put(168,353){$\wr$}%
  1375.            \put(168,403){$\wr$}%
  1376.    \else\if\@tmpc S%beta single bond
  1377.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1378.              \put(171,303){\line(0,1){140}}%  % single bond at F
  1379.    \else\ifx\@tmpc\empty%beta single bond
  1380.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1381.              \put(171,303){\line(0,1){140}}%  % single bond at F
  1382.    \fi\fi\fi\fi\fi%
  1383.  \else\if\@tmpb G%single bond at G (fused position)
  1384.    \if\@tmpc B%beta single bond
  1385.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  1386.            {%
  1387.            \thicklines%
  1388.            \put(171,103){\line(0,-1){140}}%   % single bond at G
  1389.            }%
  1390.    \else\if\@tmpc A%alpha single bond
  1391.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  1392.        \@ifundefined{dottedline}{%
  1393.            \put(171,103){\line(0,-1){140}}%   % single bond at G
  1394.            }{{\thicklines%
  1395.               \dottedline{20}(171,103)(171,-37)}}%
  1396.    \else\if\@tmpc U%beta single bond
  1397.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  1398.            \put(168,43){$\wr$}% unspecified single bond at G
  1399.            \put(168,-8){$\wr$}% 
  1400.            \put(168,-57){$\wr$}% 
  1401.    \else\if\@tmpc S%alpha single bond
  1402.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  1403.            \put(171,103){\line(0,-1){140}}%   % single bond at G
  1404.    \else\ifx\@tmpc\empty%alpha single bond
  1405.            \putlratom{140}{-127}{\@memberb}%  % left or right type
  1406.            \put(171,103){\line(0,-1){140}}%   % single bond at G
  1407.    \fi\fi\fi\fi\fi%
  1408.  \fi\fi%
  1409. %%%%%%%%%%%%%%%%%
  1410. \or% subst. on 1  F == (0,406), G == (171,303)
  1411. %%%%%%%%%%%%%%%%%
  1412.  \if\@tmpb F%single bond at F (5,-3) fusion
  1413.    \if\@tmpc B%beta single bond
  1414.            \putlatom{-130}{466}{\@memberb}%   % left type
  1415.            {%
  1416.            \thicklines%
  1417.            \put(0,406){\line(-5,3){120}}%     % single bond at F
  1418.            }%
  1419.    \else\if\@tmpc A%alpha single bond
  1420.            \putlatom{-130}{466}{\@memberb}%   % left type
  1421.        \@ifundefined{dottedline}{%
  1422.            \put(0,406){\line(-5,3){120}}%     % single bond at F
  1423.            }{{\thicklines%
  1424.               \dottedline{20}(0,406)(-140,478)}}%
  1425.    \else\if\@tmpc U%unspecified single bond
  1426.            \putlatom{-130}{466}{\@memberb}%   % left type
  1427.            \put(0,406){\line(-5,3){120}}%     % single bond at F
  1428.    \else\if\@tmpc S%beta single bond
  1429.            \putlatom{-130}{466}{\@memberb}%   % left type
  1430.            \put(0,406){\line(-5,3){120}}%     % single bond at F
  1431.    \else\ifx\@tmpc\empty%beta single bond
  1432.            \putlatom{-130}{466}{\@memberb}%   % left type
  1433.            \put(0,406){\line(-5,3){120}}%     % single bond at F
  1434.    \else\if\@tmpc D%beta single bond (downward)
  1435.            \putlratom{-31}{176}{\@memberb}%   % left or right type
  1436.            {%
  1437.            \thicklines%
  1438.            \put(0,406){\line(0,-1){140}}%     % single bond at F
  1439.            }%
  1440.    \else\if\@tmpc C%alpha single bond (downward)
  1441.            \putlratom{-31}{176}{\@memberb}%   % left or right type
  1442.        \@ifundefined{dottedline}{%
  1443.            \put(0,406){\line(0,-1){140}}%     % single bond at F
  1444.            }{{\thicklines%
  1445.               \dottedline{20}(0,406)(0,266)}}%
  1446.    \fi\fi\fi\fi\fi\fi\fi%
  1447.  \else\if\@tmpb G%single bond at G
  1448.    \if\@tmpc B%beta single bond
  1449.            \putratom{301}{173}{\@memberb}%    % right type
  1450.            {%
  1451.            \thicklines%
  1452.            \put(171,303){\line(5,-3){120}}%   % single bond at G
  1453.            }%
  1454.    \else\if\@tmpc A%alpha single bond
  1455.            \putratom{301}{173}{\@memberb}%    % right type
  1456.        \@ifundefined{dottedline}{%
  1457.            \put(171,303){\line(5,-3){120}}%   % single bond at G
  1458.            }{{\thicklines%
  1459.               \dottedline{20}(171,303)(291,231)}}%
  1460.    \else\if\@tmpc U%unspecified single bond
  1461.            \putratom{301}{173}{\@memberb}%    % right type
  1462.            \put(171,303){\line(5,-3){120}}%   % single bond at G
  1463.    \else\if\@tmpc S%alpha single bond
  1464.            \putratom{301}{173}{\@memberb}%    % right type
  1465.            \put(171,303){\line(5,-3){120}}%   % single bond at G
  1466.    \else\ifx\@tmpc\empty%alpha single bond
  1467.            \putratom{301}{173}{\@memberb}%    % right type
  1468.            \put(171,303){\line(5,-3){120}}%   % single bond at G
  1469.    \else\if\@tmpc D%beta single bond (upward)
  1470.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1471.            {%
  1472.            \thicklines%
  1473.            \put(171,303){\line(0,1){140}}%    % single bond at G
  1474.            }%
  1475.    \else\if\@tmpc C%alpha single bond (upward)
  1476.            \putlratom{140}{460}{\@memberb}%   % left or right type
  1477.            \@ifundefined{dottedline}{%
  1478.              \put(171,303){\line(0,1){140}}%  % single bond at G
  1479.            }{{\thicklines%
  1480.               \dottedline{20}(171,303)(171,443)}}%
  1481.    \fi\fi\fi\fi\fi\fi\fi%
  1482.  \fi\fi%
  1483. %%%%%%%%%%%%%%%%%
  1484. \or% subst. on 2  F == (0,406), G == (-171,303)
  1485. %%%%%%%%%%%%%%%%%
  1486.  \if\@tmpb F%single bond at (-5,-3) fusion
  1487.    \if\@tmpc B%beta single bond
  1488.            \putratom{130}{466}{\@memberb}%    % right type
  1489.            {%
  1490.            \thicklines%
  1491.            \put(0,406){\line(5,3){120}}%      % single bond at F
  1492.            }%
  1493.    \else\if\@tmpc A%alpha single bond
  1494.            \putratom{130}{466}{\@memberb}%    % right type
  1495.        \@ifundefined{dottedline}{%
  1496.            \put(0,406){\line(5,3){120}}%      % single bond at F
  1497.            }{{\thicklines%
  1498.               \dottedline{20}(0,406)(120,478)}}%
  1499.    \else\if\@tmpc U%unspecified single bond
  1500.            \putratom{130}{466}{\@memberb}%    % right type
  1501.            \put(0,406){\line(5,3){120}}%      % single bond at F
  1502.    \else\if\@tmpc S%beta single bond
  1503.            \putratom{130}{466}{\@memberb}%    % right type
  1504.            \put(0,406){\line(5,3){120}}%      % single bond at F
  1505.    \else\ifx\@tmpc\empty%beta single bond
  1506.            \putratom{130}{466}{\@memberb}%    % right type
  1507.            \put(0,406){\line(5,3){120}}%      % single bond at F
  1508.    \else\if\@tmpc D%beta single bond (downward)
  1509.            \putlratom{-31}{176}{\@memberb}%   % left or right type
  1510.            {%
  1511.            \thicklines%
  1512.            \put(0,406){\line(0,-1){140}}%     % single bond at F
  1513.            }%
  1514.    \else\if\@tmpc C%alpha single bond (downward)
  1515.            \putlratom{-31}{176}{\@memberb}%   % left or right type
  1516.        \@ifundefined{dottedline}{%
  1517.            \put(0,406){\line(0,-1){140}}%     % single bond at F
  1518.            }{{\thicklines%
  1519.               \dottedline{20}(0,406)(0,266)}}%
  1520.    \fi\fi\fi\fi\fi\fi\fi%
  1521.  \else\if\@tmpb G%single bond at G
  1522.    \if\@tmpc B%beta single bond
  1523.             \putlatom{-301}{173}{\@memberb}%  % left type
  1524.            {%
  1525.            \thicklines%
  1526.            \put(-171,303){\line(-5,-3){120}}% % single bond at G
  1527.            }%
  1528.    \else\if\@tmpc A%alpha single bond
  1529.             \putlatom{-301}{173}{\@memberb}%  % left type
  1530.        \@ifundefined{dottedline}{%
  1531.            \put(-171,303){\line(-5,-3){120}}% % single bond at G
  1532.            }{{\thicklines%
  1533.               \dottedline{20}(-171,303)(-311,231)}}%
  1534.    \else\if\@tmpc U%unspecified single bond
  1535.             \putlatom{-301}{173}{\@memberb}%  % left type
  1536.             \put(-171,303){\line(-5,-3){120}}%  single bond at G
  1537.    \else\if\@tmpc S%alpha single bond
  1538.             \putlatom{-301}{173}{\@memberb}%  % left type
  1539.             \put(-171,303){\line(-5,-3){120}}%  single bond at G
  1540.    \else\ifx\@tmpc\empty%alpha single bond
  1541.             \putlatom{-301}{173}{\@memberb}%  % left type
  1542.             \put(-171,303){\line(-5,-3){120}}%  single bond at G
  1543.    \else\if\@tmpc D%beta single bond (upward)
  1544.            \putlratom{201}{460}{\@memberb}%   % left or right type
  1545.            {%
  1546.            \thicklines%
  1547.            \put(-171,303){\line(0,1){140}}%   % single bond at G
  1548.            }%
  1549.    \else\if\@tmpc C%alpha single bond (upward)
  1550.            \putlratom{201}{460}{\@memberb}%   % left or right type
  1551.            \@ifundefined{dottedline}{%
  1552.              \put(-171,303){\line(0,1){140}}% % single bond at G
  1553.            }{{\thicklines%
  1554.               \dottedline{20}(-171,303)(-171,443)}}%
  1555.    \fi\fi\fi\fi\fi\fi\fi%
  1556.  \fi\fi%
  1557. %%%%%%%%%%%%%%%%%%%
  1558. \or %3 fused positions   % G == (303,171)  F == (103,171)
  1559. %%%%%%%%%%%%%%%%%%% 
  1560.  \if\@tmpb G%single bond at G (fused position)
  1561.    \if\@tmpc B%beta single bond
  1562.            \putlratom{460}{140}{\@memberb}%   % left or right type
  1563.            {%
  1564.            \thicklines%
  1565.            \put(303,171){\line(1,0){140}}%    % single bond at G
  1566.            }%
  1567.    \else\if\@tmpc A%alpha single bond
  1568.            \putlratom{460}{140}{\@memberb}%   % left or right type
  1569.            \@ifundefined{dottedline}{%
  1570.               \put(303,171){\line(1,0){140}}% % single bond at G
  1571.            }{{\thicklines%
  1572.               \dottedline{20}(303,171)(443,171)}}%
  1573.    \else\if\@tmpc U% unspecified single bond
  1574.            \putlratom{460}{140}{\@memberb}%   % left or right type
  1575.            \put(303,148){$\sim$}% unspecified single bond at G
  1576.            \put(353,148){$\sim$}%
  1577.            \put(403,148){$\sim$}%
  1578.    \else\if\@tmpc S%beta single bond
  1579.            \putlratom{460}{140}{\@memberb}%   % left or right type
  1580.            \put(303,171){\line(1,0){140}}%    % single bond at G
  1581.    \else\ifx\@tmpc\empty%beta single bond
  1582.            \putlratom{460}{140}{\@memberb}%   % left or right type
  1583.            \put(303,171){\line(1,0){140}}%    % single bond at G
  1584.    \fi\fi\fi\fi\fi%
  1585.  \else\if\@tmpb F%single bond at F (fused position)
  1586.    \if\@tmpc B%beta single bond
  1587. %           \putlratom{-127}{140}{\@memberb}%  % left or right type
  1588.            \putlatom{-57}{140}{\@memberb}%  % left type
  1589.            {%
  1590.            \thicklines%
  1591.            \put(103,171){\line(-1,0){140}}%   % single bond at F
  1592.            }%
  1593.    \else\if\@tmpc A%alpha single bond
  1594. %           \putlratom{-127}{140}{\@memberb}%  % left or right type
  1595.            \putlatom{-57}{140}{\@memberb}%  % left type
  1596.        \@ifundefined{dottedline}{%
  1597.            \put(103,171){\line(-1,0){140}}%   % single bond at F
  1598.            }{{\thicklines%
  1599.               \dottedline{20}(103,171)(-37,171)}}%
  1600.    \else\if\@tmpc U%beta single bond
  1601.            \putlatom{-57}{140}{\@memberb}%  % left type
  1602. %           \putlratom{-127}{140}{\@memberb}%  % left or right type
  1603.            \put(40,148){$\sim$}% unspecified single bond at F
  1604.            \put(-13,148){$\sim$}% 
  1605.            \put(-62,148){$\sim$}% 
  1606.    \else\if\@tmpc S%alpha single bond
  1607.            \putlatom{-57}{140}{\@memberb}%  % left type
  1608. %           \putlratom{-127}{140}{\@memberb}%  % left or right type
  1609.            \put(103,171){\line(-1,0){140}}%   % single bond at F
  1610.    \else\ifx\@tmpc\empty%alpha single bond
  1611.            \putlatom{-57}{140}{\@memberb}%  % left type
  1612. %           \putlratom{-127}{140}{\@memberb}%  % left or right type
  1613.            \put(103,171){\line(-1,0){140}}%   % single bond at F
  1614.    \fi\fi\fi\fi\fi%
  1615.  \fi\fi%
  1616. \fi %end of ifcase
  1617. \fi\fi}}%
  1618. %
  1619. % ********************************************************
  1620. % * setting of atoms and bonds at an appropiate position *
  1621. % ********************************************************
  1622. %
  1623. %   \setatombond{SUBSLIST}{AD}{SLOPE}
  1624. %
  1625. %     SUBSLIST: list of substituents (max 3 substitution positions)
  1626. %    
  1627. %     AD       : adjustment, 
  1628. %         Set AD as being 1  = position number - AD
  1629. %
  1630. %     SLOPE    
  1631. %       
  1632. %       1      : (0,1)              7     : (0,-1)
  1633. %       2      : (3,5)              8     : (-3,-5)
  1634. %       3      : (5,3)              9     : (-5,-3)
  1635. %       4      : (1,0)             10     : (-1,0)
  1636. %       5      : (5,-3)            11     : (-5,3)
  1637. %       6      : (3,-5)            12     : (-3,5)
  1638. %
  1639. \newif\if@clipfuse \@clipfusefalse
  1640. \def\setatombond#1#2#3{%
  1641. \@forsemicol\member:=#1\do{\expandafter\@m@mb@r\member;\relax%
  1642. \expandafter\threech@r\@membera{}{}%
  1643. \@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
  1644. \ifnum\@tmpaa >0\relax%
  1645. \ifnum\@tmpaa <2\relax%
  1646. \ifcase\@tmpaa%
  1647. %%%%%%%%%%%%%%%%%
  1648. \or% subst. on 1
  1649. %%%%%%%%%%%%%%%%%
  1650. %
  1651. % (0,1)
  1652. %
  1653.  \ifnum#3=1\relax%upward
  1654.            \putlratom{-31}{157}{\@memberb}%   % left or right type
  1655.   \if@clipfuse%
  1656.    \if\@tmpb B%beta single bond
  1657.            {%
  1658.            \thicklines%
  1659.            \put(0,30){\line(0,1){110}}%  % single bond at 1
  1660.            }%
  1661.    \else\if\@tmpb A%alpha single bond
  1662.            \@ifundefined{dottedline}{%
  1663.            \put(0,30){\line(0,1){110}}%  % single bond at 1
  1664.            }{{\thicklines%
  1665.               \dottedline{20}(0,30)(0,140)}}%
  1666.    \else\if\@tmpb U% unspecified single bond
  1667.            \put(-3,30){$\wr$}% unspecified single bond at 1
  1668.            \put(-3,80){$\wr$}%
  1669.    \else\if\@tmpb S%beta single bond
  1670.            \put(0,30){\line(0,1){110}}%  % single bond at 1
  1671.    \else\ifx\@tmpb\empty%beta single bond
  1672.            \put(0,30){\line(0,1){110}}%  % single bond at 1
  1673.    \fi\fi\fi\fi\fi%
  1674.   \else%
  1675.    \if\@tmpb B%beta single bond
  1676.            {%
  1677.            \thicklines%
  1678.            \put(0,0){\line(0,1){140}}%  % single bond at 1
  1679.            }%
  1680.    \else\if\@tmpb A%alpha single bond
  1681.            \@ifundefined{dottedline}{%
  1682.            \put(0,0){\line(0,1){140}}%  % single bond at 1
  1683.            }{{\thicklines%
  1684.               \dottedline{20}(0,0)(0,140)}}%
  1685.    \else\if\@tmpb U% unspecified single bond
  1686.            \put(-3,0){$\wr$}% unspecified single bond at 1
  1687.            \put(-3,50){$\wr$}%
  1688.            \put(-3,100){$\wr$}%
  1689.    \else\if\@tmpb S%beta single bond
  1690.            \put(0,0){\line(0,1){140}}%  % single bond at 1
  1691.    \else\ifx\@tmpb\empty%beta single bond
  1692.            \put(0,0){\line(0,1){140}}%  % single bond at 1
  1693.    \fi\fi\fi\fi\fi%
  1694.   \fi%
  1695. %
  1696. % (1,0)
  1697. %
  1698.  \else\ifnum#3=4\relax%(right)
  1699.            \putratom{157}{-31}{\@memberb}%   % right type only
  1700.   \if@clipfuse%
  1701.    \if\@tmpb B%beta single bond
  1702.            {%
  1703.            \thicklines%
  1704.            \put(30,0){\line(1,0){110}}%       % single bond at 1
  1705.            }%
  1706.    \else\if\@tmpb A%alpha single bond
  1707.        \@ifundefined{dottedline}{%
  1708.            \put(30,0){\line(1,0){110}}%       % single bond at 1
  1709.            }{{\thicklines%
  1710.               \dottedline{20}(30,0)(110,0)}}%
  1711.    \else\if\@tmpb U%beta single bond
  1712.            \put(30,0){\line(1,0){110}}%       % single bond at 1
  1713.    \else\if\@tmpb S%alpha single bond
  1714.            \put(30,0){\line(1,0){110}}%       % single bond at 1
  1715.    \else\ifx\@tmpb\empty%alpha single bond
  1716.            \put(30,0){\line(1,0){110}}%       % single bond at 1
  1717.    \fi\fi\fi\fi\fi%
  1718.   \else%
  1719.    \if\@tmpb B%beta single bond
  1720.            {%
  1721.            \thicklines%
  1722.            \put(0,0){\line(1,0){140}}%       % single bond at 1
  1723.            }%
  1724.    \else\if\@tmpb A%alpha single bond
  1725.        \@ifundefined{dottedline}{%
  1726.            \put(0,0){\line(1,0){140}}%       % single bond at 1
  1727.            }{{\thicklines%
  1728.               \dottedline{20}(0,0)(140,0)}}%
  1729.    \else\if\@tmpb U%beta single bond
  1730.            \put(0,0){\line(1,0){140}}%       % single bond at 1
  1731.    \else\if\@tmpb S%alpha single bond
  1732.            \put(0,0){\line(1,0){140}}%       % single bond at 1
  1733.    \else\ifx\@tmpb\empty%alpha single bond
  1734.            \put(0,0){\line(1,0){140}}%       % single bond at 1
  1735.    \fi\fi\fi\fi\fi%
  1736.   \fi%
  1737. %
  1738. % (0,-1)
  1739. %
  1740.  \else\ifnum#3=7\relax%(downward)
  1741.            \putlratom{-31}{-230}{\@memberb}% % left or right type
  1742.   \if@clipfuse%
  1743.    \if\@tmpb B%beta single bond
  1744.            {%
  1745.            \thicklines%
  1746.            \put(0,-30){\line(0,-1){110}}%    % single bond at 1
  1747.            }%
  1748.    \else\if\@tmpb A%alpha single bond
  1749.        \@ifundefined{dottedline}{%
  1750.            \put(0,-30){\line(0,-1){110}}%    % single bond at 1
  1751.            }{{\thicklines%
  1752.               \dottedline{20}(0,-30)(0,-140)}}%
  1753.    \else\if\@tmpb U%beta single bond
  1754.            \put(-3,-90){$\wr$}% unspecified single bond at 1
  1755.            \put(-3,-140){$\wr$}% 
  1756.    \else\if\@tmpb S%alpha single bond
  1757.            \put(0,-30){\line(0,-1){110}}%    % single bond at 1
  1758.    \else\ifx\@tmpb\empty%alpha single bond
  1759.            \put(0,-30){\line(0,-1){110}}%    % single bond at 1
  1760.    \fi\fi\fi\fi\fi%
  1761.   \else%
  1762.    \if\@tmpb B%beta single bond
  1763.            {%
  1764.            \thicklines%
  1765.            \put(0,0){\line(0,-1){140}}%      % single bond at 1
  1766.            }%
  1767.    \else\if\@tmpb A%alpha single bond
  1768.        \@ifundefined{dottedline}{%
  1769.            \put(0,0){\line(0,-1){140}}%      % single bond at 1
  1770.            }{{\thicklines%
  1771.               \dottedline{20}(0,0)(0,-140)}}%
  1772.    \else\if\@tmpb U%beta single bond
  1773.            \put(-3,-60){$\wr$}% unspecified single bond at 1
  1774.            \put(-3,-110){$\wr$}% 
  1775.            \put(-3,-160){$\wr$}% 
  1776.    \else\if\@tmpb S%alpha single bond
  1777.            \put(0,0){\line(0,-1){140}}%      % single bond at 1
  1778.    \else\ifx\@tmpb\empty%alpha single bond
  1779.            \put(0,0){\line(0,-1){140}}%      % single bond at 1
  1780.    \fi\fi\fi\fi\fi%
  1781.   \fi%
  1782. %
  1783. % (-5,3)
  1784. %
  1785.  \else\ifnum#3=11\relax%
  1786.            \putlatom{-130}{60}{\@memberb}%   % left type
  1787.   \if@clipfuse%
  1788.    \if\@tmpb B%beta single bond
  1789.            {%
  1790.            \thicklines%
  1791.            \put(-20,12){\line(-5,3){100}}%      % single bond at 1
  1792.            }%
  1793.    \else\if\@tmpb A%alpha single bond
  1794.        \@ifundefined{dottedline}{%
  1795.            \put(-20,12){\line(-5,3){100}}%      % single bond at 1
  1796.            }{{\thicklines%
  1797.               \dottedline{20}(-20,12)(-140,72)}}%
  1798.    \else\if\@tmpb U%unspecified single bond
  1799.            \put(-20,12){\line(-5,3){100}}%      % single bond at 1
  1800.    \else\if\@tmpb S%beta single bond
  1801.            \put(-20,12){\line(-5,3){100}}%      % single bond at 1
  1802.    \else\ifx\@tmpb\empty%beta single bond
  1803.            \put(-20,12){\line(-5,3){110}}%      % single bond at 1
  1804.    \fi\fi\fi\fi\fi%
  1805.   \else%
  1806.    \if\@tmpb B%beta single bond
  1807.            {%
  1808.            \thicklines%
  1809.            \put(0,0){\line(-5,3){120}}%      % single bond at 1
  1810.            }%
  1811.    \else\if\@tmpb A%alpha single bond
  1812.        \@ifundefined{dottedline}{%
  1813.            \put(0,0){\line(-5,3){120}}%      % single bond at 1
  1814.            }{{\thicklines%
  1815.               \dottedline{20}(0,0)(-140,72)}}%
  1816.    \else\if\@tmpb U%unspecified single bond
  1817.            \put(0,0){\line(-5,3){120}}%      % single bond at 1
  1818.    \else\if\@tmpb S%beta single bond
  1819.            \put(0,0){\line(-5,3){120}}%      % single bond at 1
  1820.    \else\ifx\@tmpb\empty%beta single bond
  1821.            \put(0,0){\line(-5,3){120}}%      % single bond at 1
  1822.    \fi\fi\fi\fi\fi%
  1823.   \fi%
  1824. %
  1825. % (5,-3)
  1826. %
  1827.  \else\ifnum#3=5\relax%
  1828.            \putratom{130}{-130}{\@memberb}%  % right type
  1829.   \if@clipfuse%
  1830.    \if\@tmpb B%beta single bond
  1831.            {%
  1832.            \thicklines%
  1833.            \put(20,-12){\line(5,-3){100}}%      % single bond at 1
  1834.            }%
  1835.    \else\if\@tmpb A%alpha single bond
  1836.            \putratom{301}{173}{\@memberb}%   % right type
  1837.        \@ifundefined{dottedline}{%
  1838.            \put(20,-12){\line(5,-3){100}}%      % single bond at 1
  1839.            }{{\thicklines%
  1840.               \dottedline{20}(20,-12)(120,-72)}}%
  1841.    \else\if\@tmpb U%unspecified single bond
  1842.            \put(20,-12){\line(5,-3){100}}%      % single bond at 1
  1843.    \else\if\@tmpb S%alpha single bond
  1844.            \put(20,-12){\line(5,-3){100}}%      % single bond at 1
  1845.    \else\ifx\@tmpb\empty%alpha single bond
  1846.            \put(20,-12){\line(5,-3){100}}%      % single bond at 1
  1847.    \fi\fi\fi\fi\fi%
  1848.   \else%
  1849.    \if\@tmpb B%beta single bond
  1850.            {%
  1851.            \thicklines%
  1852.            \put(0,0){\line(5,-3){120}}%      % single bond at 1
  1853.            }%
  1854.    \else\if\@tmpb A%alpha single bond
  1855.            \putratom{301}{173}{\@memberb}%   % right type
  1856.        \@ifundefined{dottedline}{%
  1857.            \put(0,0){\line(5,-3){120}}%      % single bond at 1
  1858.            }{{\thicklines%
  1859.               \dottedline{20}(0,0)(120,-72)}}%
  1860.    \else\if\@tmpb U%unspecified single bond
  1861.            \put(0,0){\line(5,-3){120}}%      % single bond at 1
  1862.    \else\if\@tmpb S%alpha single bond
  1863.            \put(0,0){\line(5,-3){120}}%      % single bond at 1
  1864.    \else\ifx\@tmpb\empty%alpha single bond
  1865.            \put(0,0){\line(5,-3){120}}%      % single bond at 1
  1866.    \fi\fi\fi\fi\fi%
  1867.   \fi%
  1868. %
  1869. % (5,3)
  1870. %
  1871.  \else\ifnum#3=3\relax%
  1872.            \putratom{130}{60}{\@memberb}%    % right type
  1873.   \if@clipfuse%
  1874.    \if\@tmpc B%beta single bond
  1875.            {%
  1876.            \thicklines%
  1877.            \put(20,12){\line(5,3){100}}%       % single bond at 1
  1878.            }%
  1879.    \else\if\@tmpc A%alpha single bond
  1880.            \putratom{130}{466}{\@memberb}%   % right type
  1881.        \@ifundefined{dottedline}{%
  1882.            \put(20,12){\line(5,3){100}}%       % single bond at 1
  1883.            }{{\thicklines%
  1884.               \dottedline{20}(20,12)(120,72)}}%
  1885. %              \dottedline{20}(0,406)(120,72)}}%
  1886.    \else\if\@tmpc U%unspecified single bond
  1887.            \put(20,12){\line(5,3){100}}%       % single bond at 1
  1888.    \else\if\@tmpc S%beta single bond
  1889.            \put(20,12){\line(5,3){100}}%       % single bond at 1
  1890.    \else\ifx\@tmpc\empty%beta single bond
  1891.            \put(20,12){\line(5,3){100}}%       % single bond at 1
  1892.    \fi\fi\fi\fi\fi%
  1893.   \else%
  1894.    \if\@tmpc B%beta single bond
  1895.            {%
  1896.            \thicklines%
  1897.            \put(0,0){\line(5,3){120}}%       % single bond at 1
  1898.            }%
  1899.    \else\if\@tmpc A%alpha single bond
  1900.            \putratom{130}{466}{\@memberb}%   % right type
  1901.        \@ifundefined{dottedline}{%
  1902.            \put(0,0){\line(5,3){120}}%       % single bond at 1
  1903.            }{{\thicklines%
  1904.               \dottedline{20}(0,0)(120,72)}}%
  1905. %              \dottedline{20}(0,406)(120,72)}}%
  1906.    \else\if\@tmpc U%unspecified single bond
  1907.            \put(0,0){\line(5,3){120}}%       % single bond at 1
  1908.    \else\if\@tmpc S%beta single bond
  1909.            \put(0,0){\line(5,3){120}}%       % single bond at 1
  1910.    \else\ifx\@tmpc\empty%beta single bond
  1911.            \put(0,0){\line(5,3){120}}%       % single bond at 1
  1912.    \fi\fi\fi\fi\fi%
  1913.   \fi%
  1914. %
  1915. % (-5,-3)
  1916. %
  1917.  \else\ifnum#3=9\relax%
  1918.            \putlatom{-130}{-130}{\@memberb}% % left type
  1919.   \if@clipfuse%
  1920.    \if\@tmpb B%beta single bond
  1921.            {%
  1922.            \thicklines%
  1923.            \put(-20,-12){\line(-5,-3){100}}% single bond at 1
  1924.            }%
  1925.    \else\if\@tmpb A%alpha single bond
  1926.        \@ifundefined{dottedline}{%
  1927.            \put(-20,-12){\line(-5,-3){100}}% single bond at 1
  1928.            }{{\thicklines%
  1929.               \dottedline{20}(-20,-12)(-120,-72)}}%
  1930.    \else\if\@tmpc U%unspecified single bond
  1931.            \put(-20,-12){\line(-5,-3){100}}% single bond at 1
  1932.    \else\if\@tmpc S%alpha single bond
  1933.            \put(-20,-12){\line(-5,-3){100}}% single bond at 1
  1934.    \else\ifx\@tmpc\empty%alpha single bond
  1935.            \put(-20,-12){\line(-5,-3){100}}% single bond at 1
  1936.    \fi\fi\fi\fi\fi%
  1937.   \else%
  1938.    \if\@tmpb B%beta single bond
  1939.            {%
  1940.            \thicklines%
  1941.            \put(0,0){\line(-5,-3){120}}% single bond at 1
  1942.            }%
  1943.    \else\if\@tmpb A%alpha single bond
  1944.        \@ifundefined{dottedline}{%
  1945.            \put(0,0){\line(-5,-3){120}}% single bond at 1
  1946.            }{{\thicklines%
  1947.               \dottedline{20}(0,0)(-120,-72)}}%
  1948.    \else\if\@tmpc U%unspecified single bond
  1949.            \put(0,0){\line(-5,-3){120}}% single bond at 1
  1950.    \else\if\@tmpc S%alpha single bond
  1951.            \put(0,0){\line(-5,-3){120}}% single bond at 1
  1952.    \else\ifx\@tmpc\empty%alpha single bond
  1953.            \put(0,0){\line(-5,-3){120}}% single bond at 1
  1954.    \fi\fi\fi\fi\fi%
  1955.   \fi
  1956. %
  1957. % (-1,0)
  1958. %
  1959.  \else\ifnum#3=10\relax%(left)
  1960.            \putlatom{-157}{-31}{\@memberb}%   % left type only
  1961.   \if@clipfuse%
  1962.    \if\@tmpb B%beta single bond
  1963.            {%
  1964.            \thicklines%
  1965.            \put(-30,0){\line(-1,0){110}}%       % single bond at 1
  1966.            }%
  1967.    \else\if\@tmpb A%alpha single bond
  1968.        \@ifundefined{dottedline}{%
  1969.            \put(-30,0){\line(-1,0){110}}%       % single bond at 1
  1970.            }{{\thicklines%
  1971.               \dottedline{20}(0,0)(-110,0)}}%
  1972.    \else\if\@tmpb U%beta single bond
  1973.            \put(-30,0){\line(-1,0){110}}%       % single bond at 1
  1974.    \else\if\@tmpb S%alpha single bond
  1975.            \put(-30,0){\line(-1,0){110}}%       % single bond at 1
  1976.    \else\ifx\@tmpb\empty%alpha single bond
  1977.            \put(-30,0){\line(-1,0){110}}%       % single bond at 1
  1978.    \fi\fi\fi\fi\fi%
  1979.   \else%
  1980.    \if\@tmpb B%beta single bond
  1981.            {%
  1982.            \thicklines%
  1983.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  1984.            }%
  1985.    \else\if\@tmpb A%alpha single bond
  1986.        \@ifundefined{dottedline}{%
  1987.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  1988.            }{{\thicklines%
  1989.               \dottedline{20}(0,0)(-140,0)}}%
  1990.    \else\if\@tmpb U%beta single bond
  1991.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  1992.    \else\if\@tmpb S%alpha single bond
  1993.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  1994.    \else\ifx\@tmpb\empty%alpha single bond
  1995.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  1996.    \fi\fi\fi\fi\fi%
  1997.   \fi%
  1998. \fi\fi\fi\fi\fi\fi\fi\fi%
  1999. \fi %end of ifcase
  2000. \fi\fi}}%
  2001. %
  2002. % *************************************************************
  2003. % * treatment of substitution positions for a horizontal type *
  2004. % *************************************************************
  2005. %%%%%%%%%%%%%%%
  2006. % subst. on 1 %
  2007. %%%%%%%%%%%%%%%
  2008. \def\@hsubsta{%
  2009. \if@aclip %clipping
  2010.    \if\@tmpb S%single bond
  2011.     \ifx\@tmpc\empty%
  2012.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2013.            \put(-30,0){\line(-1,0){110}}%      % single bond at 1
  2014.     \else\if\@tmpc B%(B) beta
  2015.            \putlatom{-157}{42}{\@memberb}%     % left type
  2016.            {%
  2017.            \thicklines%
  2018.            \put(-30,18){\line(-5,3){100}}%     % single bond at 1
  2019.            }%
  2020.     \else\if\@tmpc A%(A) alpha
  2021.            \putlatom{-157}{-100}{\@memberb}%   % left type
  2022.        \@ifundefined{dottedline}{%
  2023.            \put(-30,-18){\line(-5,3){100}}%    % single bond at 1
  2024.            }{{\thicklines%
  2025.               \dottedline{20}(-30,-18)(-120,-72)}}%
  2026.     \else\if\@tmpc b%(b) beta
  2027.            \putlatom{-157}{42}{\@memberb}%    % left type
  2028. %           \putlatom{-157}{100}{\@memberb}%    % left type
  2029.            \put(-30,18){\line(-5,3){100}}%     % single bond at 1
  2030.     \else\if\@tmpc a%(a) alpha
  2031.            \putlatom{-157}{-100}{\@memberb}%   % left type
  2032.            \put(-30,-18){\line(-5,-3){100}}%   % single bond at 1
  2033.     \fi\fi\fi\fi\fi
  2034.    \else\if\@tmpb D%double bond
  2035.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2036.            \put(-30,-12){\line(-1,0){110}}%    % double bond at 1
  2037.            \put(-30,12){\line(-1,0){110}}%     % double bond at 1
  2038.    \else\if\@tmpb B%beta single bond
  2039.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2040.            {%
  2041.            \thicklines%
  2042.            \put(-30,0){\line(-1,0){110}}%      % single bond at 1
  2043.            }%
  2044.    \else\if\@tmpb A%alpha single bond
  2045.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2046.            \@ifundefined{dottedline}{%
  2047.            \put(-30,0){\line(-1,0){110}}%      % single bond at 1
  2048.            }{{\thicklines%
  2049.               \dottedline{20}(-30,0)(-140,0)}}%
  2050.    \else%
  2051.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2052.            \put(-40,0){\line(-1,0){100}}%      % single bond at 1
  2053.    \fi\fi\fi\fi
  2054. %
  2055. \else%% no clipping
  2056.    \if\@tmpb S%single bond
  2057.     \ifx\@tmpc\empty%
  2058.            \putlatom{-157}{-31}{\@memberb}%    % left type only
  2059.            \put(0,0){\line(-1,0){140}}%        % single bond at 1
  2060.     \else\if\@tmpc B%(B) beta
  2061.            \putlatom{-157}{42}{\@memberb}%     % left type
  2062.            {%
  2063.            \thicklines%
  2064.            \put(0,0){\line(-5,3){120}}%        % single bond at 1
  2065.            }%
  2066.     \else\if\@tmpc A%(A) alpha
  2067.            \putlatom{-157}{-100}{\@memberb}%   % left type
  2068.        \@ifundefined{dottedline}{%
  2069.            \put(0,0){\line(-5,-3){120}}%       % single bond at 1
  2070.            }{{\thicklines%
  2071.               \dottedline{20}(0,0)(-120,-72)}}%
  2072.     \else\if\@tmpc b%(b) beta
  2073.            \putlatom{-157}{42}{\@memberb}%    % left type
  2074. %           \putlatom{-157}{100}{\@memberb}%    % left type
  2075.            \put(0,0){\line(-5,3){120}}%        % single bond at 1
  2076.     \else\if\@tmpc a%(a) alpha
  2077.            \putlatom{-157}{-100}{\@memberb}%   % left type
  2078.            \put(0,0){\line(-5,-3){120}}%       % single bond at 1
  2079.     \fi\fi\fi\fi\fi
  2080.    \else\if\@tmpb D%double bond
  2081.            \putlatom{-157}{-31}{\@memberb}%   % left type only
  2082.            \put(0,-12){\line(-1,0){140}}%     % double bond at 1
  2083.            \put(0,12){\line(-1,0){140}}%      % double bond at 1
  2084.    \else\if\@tmpb B%beta single bond
  2085.            \putlatom{-157}{-31}{\@memberb}%   % left type only
  2086.            {%
  2087.            \thicklines%
  2088.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  2089.            }%
  2090.    \else\if\@tmpb A%alpha single bond
  2091.            \putlatom{-157}{-31}{\@memberb}%   % left type only
  2092.            \@ifundefined{dottedline}{%
  2093.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  2094.            }{{\thicklines%
  2095.               \dottedline{20}(0,0)(-140,0)}}%
  2096.    \else%
  2097.            \putlatom{-157}{-31}{\@memberb}%   % left type only
  2098.            \put(0,0){\line(-1,0){140}}%       % single bond at 1
  2099.    \fi\fi\fi\fi%
  2100.  \fi}%
  2101. %%%%%%%%%%%%%%%
  2102. % subst. on 2 %
  2103. %%%%%%%%%%%%%%%
  2104. \def\@hsubstb{%
  2105.  \if@bclip %clipping
  2106.    \if\@tmpb S%single bond
  2107.     \ifx\@tmpc\empty%
  2108.            \putlratom{-27}{331}{\@memberb}%
  2109.            \put(79,221){\line(-3,5){62}}%      % single bond at 2
  2110.     \else\if\@tmpc B%(B) beta
  2111.            \putlatom{-41}{240}{\@memberb}%     % left type
  2112.            {%
  2113.            \thicklines%
  2114.            \put(59,201){\line(-5,3){100}}%     % single bond at 2
  2115.            }%
  2116.     \else\if\@tmpc A%(A) alpha
  2117.            \putratom{83}{331}{\@memberb}%      % right type
  2118.        \@ifundefined{dottedline}{%
  2119.            \put(103,221){\line(0,1){100}}%     % single bond at 2
  2120.            }{{\thicklines%
  2121.               \dottedline{20}(103,221)(103,331)}}%
  2122.     \else\if\@tmpc b%(b) beta
  2123.            \putlatom{-41}{240}{\@memberb}%     % left type
  2124.            \put(59,201){\line(-5,3){100}}%     % single bond at 2
  2125.     \else\if\@tmpc a%(a) alpha
  2126.            \putratom{83}{331}{\@memberb}%      % right type
  2127.            \put(103,221){\line(0,1){100}}%     % single bond at 2
  2128.     \fi\fi\fi\fi\fi%
  2129.    \else\if\@tmpb D%double bond
  2130.            \putlratom{-27}{331}{\@memberb}%
  2131.            \put(78,208){\line(-3,5){62}}%      % double bond at 2
  2132.            \put(103,214){\line(-3,5){62}}%     % double bond at 2
  2133.    \else\if\@tmpb B%beta single bond
  2134.            \putlratom{-27}{331}{\@memberb}%
  2135.            {%
  2136.            \thicklines%
  2137.            \put(79,221){\line(-3,5){62}}%      % single bond at 2
  2138.            }%
  2139.    \else\if\@tmpb A%alpha single bond
  2140.            \putlratom{-27}{331}{\@memberb}%
  2141.        \@ifundefined{dottedline}{%
  2142.            \put(79,221){\line(-3,5){62}}%      % single bond at 2
  2143.            }{{\thicklines%
  2144.               \dottedline{20}(79,221)(31,291)}}%
  2145.    \else%
  2146.            \putlratom{-27}{331}{\@memberb}%
  2147.            \put(79,221){\line(-3,5){62}}%      % single bond at 2
  2148.    \fi\fi\fi\fi%
  2149.  \else%%no clipping
  2150.    \if\@tmpb S%single bond
  2151.     \ifx\@tmpc\empty%
  2152.            \putlratom{-27}{331}{\@memberb}%
  2153.            \put(103,171){\line(-3,5){72}}%     % single bond at 2
  2154.     \else\if\@tmpc B%(B) beta
  2155.            \putlatom{-31}{240}{\@memberb}%     % left type
  2156.            {%
  2157.            \thicklines%
  2158.            \put(103,171){\line(-5,3){120}}%    % single bond at 2
  2159.            }%
  2160.     \else\if\@tmpc A%(A) alpha
  2161.            \putratom{83}{331}{\@memberb}%      % right type
  2162.        \@ifundefined{dottedline}{%
  2163.            \put(103,171){\line(0,1){140}}%     % single bond at 2
  2164.            }{{\thicklines%
  2165.               \dottedline{20}(103,171)(103,331)}}%
  2166.     \else\if\@tmpc b%(b) beta
  2167.            \putlatom{-31}{240}{\@memberb}%     % left type
  2168.            \put(103,171){\line(-5,3){120}}%    % single bond at 2
  2169.     \else\if\@tmpc a%(a) alpha
  2170.            \putratom{83}{331}{\@memberb}%      % right type
  2171.            \put(103,171){\line(0,1){140}}%     % single bond at 2
  2172.     \fi\fi\fi\fi\fi%
  2173.    \else\if\@tmpb D%double bond
  2174.            \putlratom{-27}{331}{\@memberb}%
  2175.            \put(96,168){\line(-3,5){72}}%      % double bond at 2
  2176.            \put(121,174){\line(-3,5){72}}%     % double bond at 2
  2177.    \else\if\@tmpb B%beta single bond
  2178.            \putlratom{-27}{331}{\@memberb}%
  2179.            {%
  2180.            \thicklines%
  2181.            \put(103,171){\line(-3,5){72}}%     % single bond at 2
  2182.            }%
  2183.    \else\if\@tmpb A%alpha single bond
  2184.            \putlratom{-27}{331}{\@memberb}%
  2185.        \@ifundefined{dottedline}{%
  2186.            \put(103,171){\line(-3,5){72}}%     % single bond at 2
  2187.            }{{\thicklines%
  2188.               \dottedline{20}(103,171)(31,291)}}%
  2189.    \else%
  2190.            \putlratom{-27}{331}{\@memberb}%
  2191.            \put(103,171){\line(-3,5){72}}%     % single bond at 2
  2192.    \fi\fi\fi\fi%
  2193.  \fi}%
  2194. %%%%%%%%%%%%%%%
  2195. % subst. on 3 %
  2196. %%%%%%%%%%%%%%%
  2197. \def\@hsubstc{%
  2198.  \if@cclip %clipping
  2199.    \if\@tmpb S%single bond
  2200.     \ifx\@tmpc\empty%
  2201.            \putratom{363}{331}{\@memberb}%       
  2202.            \put(343,221){\line(3,5){62}}%      % single bond at 3
  2203.     \else\if\@tmpc B%(B) beta
  2204.            \putratom{443}{240}{\@memberb}%     % right type
  2205.            {%
  2206.            \thicklines%
  2207.            \put(343,201){\line(5,3){100}}%     % single bond at 3
  2208.            }%
  2209.     \else\if\@tmpc A%(A) alpha
  2210.            \putratom{283}{331}{\@memberb}%     % right type
  2211.        \@ifundefined{dottedline}{%
  2212.            \put(303,221){\line(0,1){110}}%     % single bond at 3
  2213.            }{{\thicklines%
  2214.               \dottedline{20}(303,221)(303,331)}}%
  2215.     \else\if\@tmpc b%(b) beta
  2216.            \putratom{443}{240}{\@memberb}%     % right type
  2217.            \put(343,201){\line(5,3){100}}%     % single bond at 3
  2218.     \else\if\@tmpc a%(a) alpha
  2219.            \putratom{283}{331}{\@memberb}%     % right type
  2220.            \put(303,221){\line(0,1){110}}%     % single bond at 3
  2221.     \fi\fi\fi\fi\fi%
  2222.    \else\if\@tmpb D%double bond
  2223.            \putratom{363}{331}{\@memberb}%       
  2224.            \put(328,208){\line(3,5){62}}%      % double bond at 3
  2225.            \put(303,214){\line(3,5){62}}%      % double bond at 3
  2226.    \else\if\@tmpb B%beta single bond
  2227.            \putratom{363}{331}{\@memberb}%       
  2228.            {%
  2229.            \thicklines%
  2230.            \put(343,221){\line(3,5){62}}%      % single bond at 3
  2231.            }%
  2232.    \else\if\@tmpb A%alpha single bond
  2233.            \putratom{363}{331}{\@memberb}%       
  2234.        \@ifundefined{dottedline}{%
  2235.            \put(343,221){\line(3,5){62}}%      % single bond at 3
  2236.            }{{\thicklines%
  2237.               \dottedline{20}(343,221)(375,291)}}%
  2238.    \else%
  2239.            \putratom{363}{331}{\@memberb}%       
  2240.            \put(343,221){\line(3,5){62}}%      % single bond at 3
  2241.    \fi\fi\fi\fi%
  2242.  \else%no clipping
  2243.    \if\@tmpb S%single bond
  2244.     \ifx\@tmpc\empty%
  2245.            \putratom{363}{331}{\@memberb}%       
  2246.            \put(303,171){\line(3,5){72}}%      % single bond at 3
  2247.     \else\if\@tmpc B%(B) beta
  2248.            \putratom{443}{240}{\@memberb}%     % right type
  2249.            {%
  2250.            \thicklines%
  2251.            \put(303,171){\line(5,3){120}}%     % single bond at 3
  2252.            }%
  2253.     \else\if\@tmpc A%(A) alpha
  2254.            \putratom{283}{331}{\@memberb}%     % right type
  2255.        \@ifundefined{dottedline}{%
  2256.            \put(303,171){\line(0,1){140}}%     % single bond at 3
  2257.            }{{\thicklines%
  2258.               \dottedline{20}(303,171)(303,311)}}%
  2259.     \else\if\@tmpc b%(b) beta
  2260.            \putratom{443}{240}{\@memberb}%     % right type
  2261.            \put(303,171){\line(5,3){120}}%     % single bond at 3
  2262.     \else\if\@tmpc a%(a) alpha
  2263.            \putratom{283}{331}{\@memberb}%     % right type
  2264.            \put(303,171){\line(0,1){140}}%     % single bond at 3
  2265.     \fi\fi\fi\fi\fi%
  2266.    \else\if\@tmpb D%double bond
  2267.            \putratom{363}{331}{\@memberb}%       
  2268.            \put(310,168){\line(3,5){72}}%      % double bond at 3
  2269.            \put(284,174){\line(3,5){72}}%      % double bond at 3
  2270.    \else\if\@tmpb B%beta single bond
  2271.            \putratom{363}{331}{\@memberb}%       
  2272.            {%
  2273.            \thicklines%
  2274.            \put(303,171){\line(3,5){72}}%      % single bond at 3
  2275.            }%
  2276.    \else\if\@tmpb A%alpha single bond
  2277.            \putratom{363}{331}{\@memberb}%       
  2278.        \@ifundefined{dottedline}{%
  2279.            \put(303,171){\line(3,5){72}}%      % single bond at 3
  2280.            }{{\thicklines%
  2281.               \dottedline{20}(303,171)(375,291)}}%
  2282.    \else%
  2283.            \putratom{363}{331}{\@memberb}%       
  2284.            \put(303,171){\line(3,5){72}}%      % single bond at 3
  2285.    \fi\fi\fi\fi%
  2286.  \fi}%
  2287. %%%%%%%%%%%%%%%
  2288. % subst. on 4 %
  2289. %%%%%%%%%%%%%%%
  2290. \def\@hsubstd{%
  2291. \if@clip %clipping
  2292.    \if\@tmpb S%single bond
  2293.     \ifx\@tmpc\empty%
  2294.            \putratom{563}{-31}{\@memberb}%    % right type only
  2295.             \put(436,0){\line(1,0){110}}%     % single bond at 4
  2296.     \else\if\@tmpc B%(B) beta
  2297.            \putratom{563}{42}{\@memberb}%     % right type only
  2298.            {%
  2299.            \thicklines%
  2300.            \put(436,18){\line(5,3){100}}%     % single bond at 4
  2301.            }%
  2302.     \else\if\@tmpc A%(A) alpha
  2303.            \putratom{563}{-100}{\@memberb}%   % right type only
  2304.        \@ifundefined{dottedline}{%
  2305.            \put(436,-18){\line(5,-3){100}}%   % single bond at 4
  2306.            }{{\thicklines%
  2307.               \dottedline{20}(436,-18)(526,-72)}}%
  2308.     \else\if\@tmpc b%(b) beta
  2309.            \putratom{563}{42}{\@memberb}%     % right type only
  2310.            \put(436,18){\line(5,3){100}}%     % single bond at 4
  2311.     \else\if\@tmpc a%(a) alpha
  2312.            \putratom{563}{-100}{\@memberb}%   % right type only
  2313.            \put(436,-18){\line(5,-3){100}}%   % single bond at 4
  2314.     \fi\fi\fi\fi\fi%
  2315.    \else\if\@tmpb D%double bond
  2316.            \putratom{563}{-31}{\@memberb}%    % right type only
  2317.            \put(436,-12){\line(1,0){110}}%    % double bond at 4
  2318.            \put(436,12){\line(1,0){110}}%     % double bond at 4
  2319.    \else\if\@tmpb B%beta single bond
  2320.            \putratom{563}{-31}{\@memberb}%    % right type only
  2321.            {%
  2322.            \thicklines%
  2323.             \put(436,0){\line(1,0){110}}%     % single bond at 4
  2324.            }%
  2325.    \else\if\@tmpb A%alpha single bond
  2326.            \putratom{563}{-31}{\@memberb}%    % right type only
  2327.            \@ifundefined{dottedline}{%
  2328.             \put(436,0){\line(1,0){110}}%     % single bond at 4
  2329.            }{{\thicklines%
  2330.               \dottedline{20}(436,0)(546,0)}}%
  2331.    \else%
  2332.            \putratom{563}{-31}{\@memberb}%    % right type only
  2333.             \put(436,0){\line(1,0){110}}%     % single bond at 4
  2334.    \fi\fi\fi\fi%
  2335. \else%% no clipping
  2336.    \if\@tmpb S%single bond
  2337.     \ifx\@tmpc\empty%
  2338.            \putratom{563}{-31}{\@memberb}%    % right type only
  2339.             \put(406,0){\line(1,0){140}}%     % single bond at 4
  2340.     \else\if\@tmpc B%(B) beta
  2341.            \putratom{563}{42}{\@memberb}%     % right type only
  2342.            {%
  2343.            \thicklines%
  2344.            \put(406,0){\line(5,3){120}}%      % single bond at 4
  2345.            }%
  2346.     \else\if\@tmpc A%(A) alpha
  2347.            \putratom{563}{-100}{\@memberb}%   % right type only
  2348.        \@ifundefined{dottedline}{%
  2349.            \put(406,0){\line(5,-3){120}}%     % single bond at 4
  2350.            }{{\thicklines%
  2351.               \dottedline{20}(406,0)(526,-72)}}%
  2352.     \else\if\@tmpc b%(b) beta
  2353.            \putratom{563}{42}{\@memberb}%     % right type only
  2354.            \put(406,0){\line(5,3){120}}%      % single bond at 4
  2355.     \else\if\@tmpc a%(a) alpha
  2356.            \putratom{563}{-100}{\@memberb}%   % right type only
  2357.            \put(406,0){\line(5,-3){120}}%     % single bond at 4
  2358.     \fi\fi\fi\fi\fi%
  2359.    \else\if\@tmpb D%double bond
  2360.            \putratom{563}{-31}{\@memberb}%    % right type only
  2361.            \put(406,-12){\line(1,0){140}}%    % double bond at 4
  2362.            \put(406,12){\line(1,0){140}}%     % double bond at 4
  2363.    \else\if\@tmpb B%beta single bond
  2364.            \putratom{563}{-31}{\@memberb}%    % right type only
  2365.            {%
  2366.            \thicklines%
  2367.             \put(406,0){\line(1,0){140}}%     % single bond at 4
  2368.            }%
  2369.    \else\if\@tmpb A%alpha single bond
  2370.            \putratom{563}{-31}{\@memberb}%    % right type only
  2371.            \@ifundefined{dottedline}{%
  2372.             \put(406,0){\line(1,0){140}}%     % single bond at 4
  2373.            }{{\thicklines%
  2374.               \dottedline{20}(406,0)(546,0)}}%
  2375.    \else%
  2376.            \putratom{563}{-31}{\@memberb}%    % right type only
  2377.             \put(406,0){\line(1,0){140}}%     % single bond at 4
  2378.    \fi\fi\fi\fi%
  2379.  \fi}%
  2380. %%%%%%%%%%%%%%%
  2381. % subst. on 5 %
  2382. %%%%%%%%%%%%%%%
  2383. \def\@hsubste{%
  2384.  \if@eclip %clipping
  2385.   \if\@tmpb S%single bond
  2386.     \ifx\@tmpc\empty%
  2387.            \putratom{363}{-402}{\@memberb}%
  2388.            \put(343,-221){\line(3,-5){62}}%    % single bond at 5
  2389.     \else\if\@tmpc B%(B) beta
  2390.            \putratom{443}{-301}{\@memberb}%    % right type
  2391.            {%
  2392.            \thicklines%
  2393.            \put(343,-201){\line(5,-3){100}}%   % single bond at 5
  2394.            }%
  2395.     \else\if\@tmpc A%(A) alpha
  2396.            \putratom{283}{-402}{\@memberb}%    % right type
  2397.        \@ifundefined{dottedline}{%
  2398.            \put(303,-221){\line(0,-1){110}}%   % single bond at 5
  2399.            }{{\thicklines%
  2400.               \dottedline{20}(303,-221)(303,-321)}}%
  2401.     \else\if\@tmpc b%(b) beta
  2402.            \putratom{443}{-301}{\@memberb}%    % right type
  2403.            \put(343,-201){\line(5,-3){100}}%   % single bond at 5
  2404.     \else\if\@tmpc a%(a) alpha
  2405.            \putratom{283}{-402}{\@memberb}%    % right type
  2406.            \put(303,-221){\line(0,-1){110}}%   % single bond at 5
  2407.     \fi\fi\fi\fi\fi%
  2408.    \else\if\@tmpb D%double bond
  2409.            \putratom{363}{-402}{\@memberb}
  2410.            \put(328,-208){\line(3,-5){62}}%    % double bond at 5
  2411.            \put(303,-214){\line(3,-5){62}}%    % double bond at 5
  2412.    \else\if\@tmpb B%beta single bond
  2413.            \putratom{363}{-402}{\@memberb}%
  2414.            {%
  2415.            \thicklines%
  2416.            \put(343,-221){\line(3,-5){62}}%    % single bond at 5
  2417.            }%
  2418.    \else\if\@tmpb A%alpha single bond
  2419.            \putratom{363}{-402}{\@memberb}%
  2420.        \@ifundefined{dottedline}{%
  2421.            \put(343,-221){\line(3,-5){62}}%    % single bond at 5
  2422.            }{{\thicklines%
  2423.               \dottedline{20}(343,-221)(405,-322)}}%
  2424.    \else%
  2425.            \putratom{363}{-402}{\@memberb}%
  2426.            \put(343,-221){\line(3,-5){62}}%    % single bond at 5
  2427.    \fi\fi\fi\fi%
  2428. %
  2429.  \else%no clipping
  2430.    \if\@tmpb S%single bond
  2431.     \ifx\@tmpc\empty%
  2432.            \putratom{363}{-402}{\@memberb}%
  2433.            \put(303,-171){\line(3,-5){72}}%    % single bond at 5
  2434.     \else\if\@tmpc B%(B) beta
  2435.            \putratom{443}{-301}{\@memberb}%    % right type
  2436.            {%
  2437.            \thicklines%
  2438.            \put(303,-171){\line(5,-3){120}}%   % single bond at 5
  2439.            }%
  2440.     \else\if\@tmpc A%(A) alpha
  2441.            \putratom{283}{-402}{\@memberb}%    % right type
  2442.        \@ifundefined{dottedline}{%
  2443.            \put(303,-171){\line(0,-1){140}}%   % single bond at 5
  2444.            }{{\thicklines%
  2445.               \dottedline{20}(303,-171)(303,-321)}}%
  2446.     \else\if\@tmpc b%(b) beta
  2447.            \putratom{443}{-301}{\@memberb}%    % right type
  2448.            \put(303,-171){\line(5,-3){120}}%   % single bond at 5
  2449.     \else\if\@tmpc a%(a) alpha
  2450.            \putratom{283}{-402}{\@memberb}%    % right type
  2451.            \put(303,-171){\line(0,-1){140}}%   % single bond at 5
  2452.     \fi\fi\fi\fi\fi%
  2453.    \else\if\@tmpb D%double bond
  2454.            \putratom{363}{-402}{\@memberb}%
  2455.             \put(310,-168){\line(3,-5){72}}%   % double bond at 5
  2456.             \put(284,-174){\line(3,-5){72}}%   % double bond at 5
  2457.    \else\if\@tmpb B%beta single bond
  2458.            \putratom{363}{-402}{\@memberb}%
  2459.            {%
  2460.            \thicklines%
  2461.            \put(303,-171){\line(3,-5){72}}%    % single bond at 5
  2462.            }%
  2463.    \else\if\@tmpb A%alpha single bond
  2464.            \putratom{363}{-402}{\@memberb}%
  2465.        \@ifundefined{dottedline}{%
  2466.            \put(303,-171){\line(3,-5){72}}%    % single bond at 5
  2467.            }{{\thicklines%
  2468.               \dottedline{20}(303,-171)(375,-291)}}%
  2469.    \else%
  2470.            \putratom{363}{-402}{\@memberb}%
  2471.            \put(303,-171){\line(3,-5){72}}%    % single bond at 5
  2472.    \fi\fi\fi\fi%
  2473.  \fi}%
  2474. %%%%%%%%%%%%%%%
  2475. % subst. on 6 %
  2476. %%%%%%%%%%%%%%%
  2477. \def\@hsubstf{%
  2478.  \if@fclip %clipping
  2479.    \if\@tmpb S%single bond
  2480.     \ifx\@tmpc\empty%
  2481.             \putlratom{-27}{-402}{\@memberb}%
  2482.            \put(79,-221){\line(-3,-5){62}}%    % single bond at 6
  2483.     \else\if\@tmpc B%(B) beta
  2484.            \putlatom{-31}{-301}{\@memberb}%    % right type
  2485.            {%
  2486.            \thicklines%
  2487.            \put(59,-201){\line(-5,-3){100}}%   % single bond at 6
  2488.            }%
  2489.     \else\if\@tmpc A%(A) alpha
  2490.            \putratom{83}{-402}{\@memberb}%     % right type
  2491.        \@ifundefined{dottedline}{%
  2492.            \put(103,-221){\line(0,-1){100}}%   % single bond at 6
  2493.            }{{\thicklines%
  2494.               \dottedline{20}(103,-221)(103,-321)}}%
  2495.     \else\if\@tmpc b%(b) beta
  2496.            \putlatom{-31}{-301}{\@memberb}%    % right type
  2497.            \put(59,-201){\line(-5,-3){100}}%   % single bond at 6
  2498.     \else\if\@tmpc a%(a) alpha
  2499.            \putratom{83}{-402}{\@memberb}%     % right type
  2500.            \put(103,-221){\line(0,-1){100}}%   % single bond at 6
  2501.     \fi\fi\fi\fi\fi
  2502.    \else\if\@tmpb D%double bond
  2503.             \putlratom{-27}{-402}{\@memberb}%
  2504.            \put(78,-208){\line(-3,-5){62}}%    % double bond at 6
  2505.            \put(103,-214){\line(-3,-5){62}}%   % double bond at 6
  2506.    \else\if\@tmpb B%beta single bond
  2507.             \putlratom{-27}{-402}{\@memberb}%
  2508.            {%
  2509.            \thicklines%
  2510.            \put(79,-221){\line(-3,-5){62}}%    % single bond at 6
  2511.            }%
  2512.    \else\if\@tmpb A%alpha single bond
  2513.             \putlratom{-27}{-402}{\@memberb}%
  2514.        \@ifundefined{dottedline}{%
  2515.            \put(79,-221){\line(-3,-5){62}}%    % single bond at 6
  2516.            }{{\thicklines%
  2517.               \dottedline{20}(79,-221)(17,-322)}}%
  2518.    \else%
  2519.             \putlratom{-27}{-402}{\@memberb}%
  2520.            \put(79,-221){\line(-3,-5){62}}%    % single bond at 6
  2521.    \fi\fi\fi\fi%
  2522.  %
  2523.  \else%%no clipping
  2524.    \if\@tmpb S%single bond
  2525.     \ifx\@tmpc\empty%
  2526.             \putlratom{-27}{-402}{\@memberb}%
  2527.             \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
  2528.    \else\if\@tmpb B%beta single bond
  2529.            \putlatom{-31}{-301}{\@memberb}%    % right type
  2530.            {%
  2531.            \thicklines%
  2532.            \put(103,-171){\line(-5,-3){120}}%  % single bond at 6
  2533.            }%
  2534.     \else\if\@tmpc A%(A) alpha
  2535.            \putratom{83}{-402}{\@memberb}%     % right type
  2536.        \@ifundefined{dottedline}{%
  2537.            \put(103,-171){\line(0,-1){140}}%   % single bond at 6
  2538.            }{{\thicklines%
  2539.               \dottedline{20}(103,-171)(103,-321)}}%
  2540.     \else\if\@tmpc b%(b) beta
  2541.            \putlatom{-31}{-301}{\@memberb}%    % right type
  2542.            \put(103,-171){\line(-5,-3){120}}%  % single bond at 6
  2543.     \else\if\@tmpc a%(a) alpha
  2544.            \putratom{83}{-402}{\@memberb}%     % right type
  2545.            \put(103,-171){\line(0,-1){140}}%   % single bond at 6
  2546.     \fi\fi\fi\fi\fi%
  2547.    \else\if\@tmpb D%double bond
  2548.             \putlratom{-27}{-402}{\@memberb}%
  2549.             \put(96,-168){\line(-3,-5){72}}%   % double bond at 6
  2550.             \put(121,-174){\line(-3,-5){72}}%  % double bond at 6
  2551.    \else\if\@tmpb B%beta single bond
  2552.             \putlratom{-27}{-402}{\@memberb}%
  2553.             \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
  2554.            {%
  2555.            \thicklines%
  2556.             \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
  2557.            }%
  2558.    \else\if\@tmpb A%alpha single bond
  2559.             \putlratom{-27}{-402}{\@memberb}%
  2560.        \@ifundefined{dottedline}{%
  2561.             \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
  2562.            }{{\thicklines%
  2563.               \dottedline{20}(103,-171)(31,-291)}}%
  2564.    \else%
  2565.             \putlratom{-27}{-402}{\@memberb}%
  2566.             \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
  2567.    \fi\fi\fi\fi%
  2568.  \fi}%
  2569. % ****************************************************************
  2570. % * setting of atoms and bonds on a horizontal six-membered ring *
  2571. % ****************************************************************
  2572. %
  2573. %    \setsixringh{SUBSLIST}{AD}{LOWER}{UPPER}{ORDER}
  2574. %
  2575. %     SUBSLIST: list of substituents (max 6 substitution positions)
  2576. %
  2577. %       for n = 1 to 6 
  2578. %
  2579. %           nD         :  exocyclic double bond at n-atom
  2580. %           n or nS    :  exocyclic single bond at n-atom
  2581. %           nA         :  alpha single bond at n-atom
  2582. %           nB         :  beta single bond at n-atom
  2583. %           nSA        :  alpha single bond at n-atom (boldface)
  2584. %           nSB        :  beta single bond at n-atom (dotted line)
  2585. %           nSa        :  alpha (not specified) single bond at n-atom
  2586. %           nSb        :  beta (not specified) single bond at n-atom
  2587. %
  2588. %    AD       : adjustment      e.g. 0 for six-membered rings
  2589. %    LOWER    : lower limit     LOWER < effective range < UPPER
  2590. %    UPPER    : upper limit
  2591. %    ORDER     : >= 0 clockwise, <0 anti-clockwise
  2592. %
  2593. \def\setsixringh#1#2#3#4#5{%
  2594. \@forsemicol\member:=#1\do{\expandafter\@m@mb@r\member;\relax%
  2595. \expandafter\threech@r\@membera{}{}%
  2596. \ifnum#5 < 0\relax%
  2597. \@tmpaa=-\@tmpa\relax \advance\@tmpaa by #2\relax%
  2598. \else\@tmpaa=\@tmpa\relax \advance\@tmpaa by #2\relax \fi
  2599. \ifnum\@tmpaa >#3\relax%
  2600. \ifnum\@tmpaa <#4\relax%
  2601. \ifcase\@tmpaa%0 omit
  2602.  \or \@hsubsta% subst on 1
  2603.  \or \@hsubstb% subst on 2
  2604.  \or \@hsubstc% subst on 3
  2605.  \or \@hsubstd% subst on 4
  2606.  \or \@hsubste% subst on 5
  2607.  \or \@hsubstf% subst on 6
  2608. \fi %end of ifcase
  2609. \fi\fi}}%                 %end of setsixringh
  2610.  
  2611.